home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / cheesey.s < prev    next >
Text File  |  1997-01-31  |  197KB  |  13,874 lines
  1.  
  2. CHEESEY equ 1
  3.  
  4. *************************************************
  5. * Stuff to do to get a C2P version:
  6. * Change copperlist
  7. * Change wall drawing
  8. * change floor drawing
  9. * change object drawing
  10. * change polygon drawing (ugh)
  11. * Write a palette generator program in AMOS
  12. * to provide a good 256 colour palette and
  13. * convert all graphics files specified
  14. * (possibly included in the game linker
  15. * program).
  16. * Possibly change the wall/floor/object
  17. * palettes to look nicer with more shades.
  18. * RE-implement stippling (if not present)
  19. * as it will look gorgeous now.
  20. *************************************************
  21.  
  22.     include    "utils:devpac/system.gs"
  23.  
  24. ;MIDDLEX set 96
  25. ;RIGHTX set 191
  26. ;BOTTOMY set 160 
  27.  
  28. ;MIDDLEX set 96
  29. ;RIGHTX set 191
  30. ;BOTTOMY set 160
  31.  
  32. _break    macro
  33. ;    bkpt    \1
  34.     endm
  35.  
  36.  
  37. FILTER    macro
  38. ;    move.l    d0,-(sp)
  39. ;    move.l    #65000,d0
  40. ;.loop\@
  41. ;    bchg    #1,$bfe001
  42. ;    dbra    d0,.loop\@
  43. ;    move.l    (sp)+,d0
  44.     endm
  45.  
  46. BLACK    macro
  47.     move.w    #0,$dff180
  48.     endm
  49.  
  50. RED    macro
  51.     move.w    #$f00,$dff180
  52.     endm
  53.  
  54. FLASHER macro
  55. ;    movem.l    d1,-(sp)
  56. ;    move.w    #-1,d1
  57. ;
  58. ;loop3\@
  59. ;;    move.w    #\1,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    move.w    #\2,$dff180
  63. ;    nop
  64. ;    nop
  65. ;    dbra    d1,loop3\@
  66.  
  67. ;    movem.l    (sp)+,d1
  68.  
  69.     endm
  70.  
  71. GREEN    macro
  72.     move.w    #$0f0,$dff180
  73.     endm
  74.  
  75. BLUE    macro
  76.     move.w    #$f,$dff180
  77.     endm
  78.  
  79. DataCacheOff macro
  80.     movem.l    a0-a6/d0-d7,-(sp)
  81.     move.l    4.w,a6
  82.     moveq    #0,d0
  83.     move.l    #%0000000100000000,d1
  84.     jsr    _LVOCacheControl(a6)
  85.     movem.l    (sp)+,a0-a6/d0-d7
  86.     endm
  87.  
  88. DataCacheOn macro
  89.     movem.l    a0-a6/d0-d7,-(sp)
  90.     move.l    4.w,a6
  91.     moveq    #-1,d0
  92.     move.l    #%0000000100000000,d1
  93.     jsr    _LVOCacheControl(a6)
  94.     movem.l    (sp)+,a0-a6/d0-d7
  95.     endm
  96.  
  97.     opt    P=68020
  98.  
  99.     include work:includes/hardware/intbits.i
  100.  
  101. CD32VER equ 0
  102.  
  103. maxscrdiv EQU 8
  104. max3ddiv EQU 5
  105. playerheight EQU 12*1024
  106. playercrouched EQU 8*1024
  107. scrheight EQU 80
  108.  
  109. ; k/j/m
  110.  
  111. ; 4/8
  112. ; s/x
  113. ; b/n
  114.  
  115. midoffset EQU 104*4*40
  116.  
  117.  
  118.  SECTION Scrn,CODE
  119. OpenLib       equ -552
  120. CloseLib      equ -414
  121.  
  122. INTREQ        equ    $09C
  123. INTENA        equ    $09A
  124. INTENAR    equ    $01C
  125. DMACON        equ    $096
  126.  
  127. SERPER        equ    $032
  128. SERDATR    equ    $018
  129. SERDAT        equ    $030
  130. vhposrl    equ $007 
  131.  
  132. spr0ctl    equ $142
  133. spr1ctl    equ $14a
  134. spr2ctl    equ $152
  135. spr3ctl    equ $15a
  136. spr4ctl    equ $162
  137. spr5ctl    equ $16a
  138. spr6ctl    equ $172
  139. spr7ctl    equ $17a
  140. spr0pos    equ $140
  141. spr1pos    equ $148
  142. spr2pos    equ $150
  143. spr3pos    equ $158
  144. spr4pos    equ $160
  145. spr5pos    equ $168
  146. spr6pos    equ $170
  147. spr7pos    equ $178
  148. diwstart        equ $8e         ; Screen hardware registers.
  149. ddfstart        equ $92
  150. col0            equ $180
  151. col1            equ $182
  152. col2        equ $184
  153. col3        equ $186
  154. col4        equ $188
  155. col5        equ $18a
  156. col6        equ $18c
  157. col7        equ $18e
  158. col8            equ $190
  159. col9            equ $192
  160. col10           equ $194
  161. col11           equ $196
  162. col12           equ $198
  163. col13           equ $19a
  164. intreqrl    equ $01f
  165. bpl1pth         equ $e0
  166. bpl1ptl         equ $e2
  167. bpl2pth        equ $e4
  168. bpl2ptl        equ $e6
  169. bpl3pth        equ $e8
  170. bpl3ptl        equ $ea
  171. bpl4pth        equ $ec
  172. bpl4ptl        equ $ee
  173. bpl5pth        equ $f0
  174. bpl5ptl        equ $f2
  175. bpl6pth        equ $f4
  176. bpl6ptl        equ $f6
  177. bpl7pth        equ $f8
  178. bpl7ptl        equ $fa
  179. bpl8pth        equ $fc
  180. bpl8ptl        equ $fe
  181. spr0pth        equ $120
  182. spr0ptl        equ $122
  183. spr1pth        equ $124
  184. spr1ptl        equ $126
  185. spr2pth        equ $128
  186. spr2ptl        equ $12a
  187. spr3pth        equ $12c
  188. spr3ptl        equ $12e
  189. spr4pth        equ $130
  190. spr4ptl        equ $132
  191. spr5pth        equ $134
  192. spr5ptl        equ $136
  193. spr6pth        equ $138
  194. spr6ptl        equ $13a
  195. spr7pth        equ $13c
  196. spr7ptl        equ $13e
  197.  
  198.  
  199. ; move.l #length,d0
  200. ; moveq.l #2,d1    ; chipmem
  201. ; move.l 4.w,a6
  202. ; jsr allocmem(a6) = -198
  203.  
  204. ; tst.l d0
  205. ; beq.s ohbugger
  206. ; move.l d0,memaddr
  207.  
  208.  
  209. ; move.l 4.w,a6
  210. ; move.l memaddr,a1
  211. ; move.l #size,d0
  212. ; jsr freemem(a6) =-210
  213.  
  214.  
  215. ** This waits for the blitter to finish before allowing program
  216. ** execution to continue.
  217.  
  218.  
  219.  include "ab3:CHEESESAUCE/protsetupdecode"
  220.  
  221.  
  222. SAVEREGS MACRO
  223.  movem.l d0-d7/a0-a6,-(a7)
  224.  ENDM
  225.  
  226. GETREGS MACRO
  227.  movem.l (a7)+,d0-d7/a0-a6
  228.  ENDM
  229.  
  230.  
  231. WB MACRO
  232. \@bf:
  233.  btst #6,dmaconr(a6)
  234.  bne.s \@bf
  235.  ENDM
  236.  
  237. WBa MACRO
  238. \@bf:
  239.  move.w #\2,$dff180
  240.  
  241.  btst #6,$bfe001
  242.  bne.s \@bf
  243. \@bz:
  244.  
  245.  move.w #$f0f,$dff180
  246.  
  247.  btst #6,$bfe001
  248.  beq.s \@bz
  249.  
  250.  ENDM
  251.  
  252. *Another version for when a6 <> dff000
  253.  
  254. WBSLOW MACRO
  255. \@bf:
  256.  btst #6,$dff000+dmaconr
  257.  bne.s \@bf
  258.  ENDM
  259.  
  260. WT MACRO
  261. \@bf:
  262.  btst #6,(a3)
  263.  bne.s \@bd
  264.  rts
  265. \@bd: 
  266.  btst #4,(a0)
  267.  beq.s \@bf
  268.  ENDM
  269.  
  270. WTNOT MACRO
  271. \@bf:
  272.  btst #6,(a3)
  273.  bne.s \@bd
  274.  rts
  275. \@bd: 
  276.  btst #4,(a0)
  277.  bne.s \@bf
  278.  ENDM
  279.  
  280. **
  281.  
  282.  include "ab3:CHEESESAUCE/ProtectionProtection"
  283.  include "macros.i"
  284.  include "ab3:CHEESESAUCE/defs.i"
  285.  
  286. wtclickk:
  287.  btst #6,$bfe001
  288.  bne.s wtclickk
  289.  
  290.  move.w (a0)+,LEVTOPLAY
  291.  
  292.  
  293.  jsr MakePatch
  294.  
  295. ;    FLASHER $0f0,$fff
  296.  
  297. ; PROTFCALC
  298. ; PROTGCALC
  299. ; PROTHCALC
  300. ; PROTICALC
  301. ; PROTKCALC
  302. ; PROTLCALC
  303. ; PROTMCALC
  304.  
  305.  
  306.  
  307.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  308.  move.w intenar(a6),_storeint
  309.  and.w #$c000,_storeint
  310.  
  311.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  312.  
  313.  
  314.  st GOURSEL
  315.  
  316.  move.l 4.w,a6
  317.  lea VBLANKInt(pc),a1
  318.  moveq #INTB_COPER,d0
  319.  jsr _LVOAddIntServer(a6)
  320.  
  321.     IFEQ CD32VER
  322.  move.l 4.w,a6
  323.  lea KEYInt(pc),a1
  324.  moveq #INTB_PORTS,d0
  325.  jsr _LVOAddIntServer(a6)
  326.     ENDC
  327.  
  328.  IFNE CD32VER
  329.  clr.b PLR1KEYS
  330.  clr.b PLR1PATH
  331.  clr.b PLR1MOUSE
  332.  st PLR1JOY
  333.  clr.b PLR2KEYS
  334.  clr.b PLR2PATH
  335.  clr.b PLR2MOUSE
  336.  st PLR2JOY
  337.  ELSE
  338.  st PLR1KEYS
  339.  clr.b PLR1PATH
  340.  clr.b PLR1MOUSE
  341.  clr.b PLR1JOY
  342.  st PLR2KEYS
  343.  clr.b PLR2PATH
  344.  clr.b PLR2MOUSE
  345.  clr.b PLR2JOY
  346.  ENDC
  347.  
  348.  PRSDO
  349.  
  350.  move.l #2,d1    
  351.  move.l #10240*2,d0
  352.  move.l 4.w,a6
  353.  jsr -198(a6)
  354.  move.l d0,TEXTSCRN
  355.  move.w d0,TSPTl
  356.  swap d0
  357.  move.w d0,TSPTh
  358.  
  359.  move.l #nullspr,d0
  360.  move.w d0,txs0l
  361.  move.w d0,txs1l
  362.  move.w d0,txs2l
  363.  move.w d0,txs3l
  364.  move.w d0,txs4l
  365.  move.w d0,txs5l
  366.  move.w d0,txs6l
  367.  move.w d0,txs7l
  368.  swap d0
  369.  move.w d0,txs0h
  370.  move.w d0,txs1h
  371.  move.w d0,txs2h
  372.  move.w d0,txs3h
  373.  move.w d0,txs4h
  374.  move.w d0,txs5h
  375.  move.w d0,txs6h
  376.  move.w d0,txs7h 
  377.  
  378.  move.l #0,d1    
  379.  move.l #140000,d0
  380.  move.l 4.w,a6
  381.  jsr -198(a6)
  382.  move.l d0,LEVELDATA
  383.  
  384.  move.l #0,d1
  385.  
  386.  ifeq CHEESEY    
  387.  move.l #320*256,d0
  388.  endc
  389.  
  390.  ifne CHEESEY
  391.  move.l #320*160,d0
  392.  endc
  393.  
  394.  move.l 4.w,a6
  395.  jsr -198(a6)
  396.  move.l d0,FASTBUFFER
  397.  
  398.  jsr START
  399.  
  400.  rts
  401.  
  402. FASTBUFFER: dc.l 0
  403.  
  404. _storeint
  405.     dc.w 0
  406.  
  407. * Load level into buffers.
  408.  clr.b doanything
  409.  clr.b dosounds
  410.  
  411. ; DRAW TEXT SCREEN
  412.  
  413. TWEENTEXT:
  414.  
  415.  move.l #LEVELTEXT,a0
  416.  move.w PLOPT,d0
  417.  muls #82*16,d0
  418.  add.l d0,a0
  419.  
  420.  move.w #14,d7
  421.  move.w #0,d0
  422. DOWNTEXT:
  423.  move.l TEXTSCRN,a1
  424.  jsr DRAWLINEOFTEXT
  425.  addq #1,d0
  426.  add.w #82,a0
  427.  dbra d7,DOWNTEXT
  428.  rts
  429.  
  430. FONTADDRS:
  431.  dc.l ENDFONT0,CHARWIDTHS0
  432.  dc.l ENDFONT1,CHARWIDTHS1
  433.  dc.l ENDFONT2,CHARWIDTHS2
  434.  
  435. ENDFONT0:
  436.  incbin "endfont0"
  437. CHARWIDTHS0:
  438.  incbin "charwidths0"
  439. ENDFONT1:
  440. ; incbin "endfont1"
  441. CHARWIDTHS1:
  442. ; incbin "charwidths1"
  443. ENDFONT2:
  444. ; incbin "endfont2"
  445. CHARWIDTHS2:
  446. ; incbin "charwidths2"
  447.  
  448.  even
  449.  
  450. DRAWLINEOFTEXT:
  451.  movem.l d0/a0/d7,-(a7)
  452.  
  453.  muls #80*16,d0
  454.  add.l d0,a1    ; screen pointer
  455.  
  456.  move.l #FONTADDRS,a3
  457.  moveq #0,d0
  458.  move.b (a0)+,d0
  459.  move.l (a3,d0.w*8),a2
  460.  move.l 4(a3,d0.w*8),a3
  461.  
  462.  moveq #0,d1    ; width counter:
  463.  move.w #79,d6
  464.  tst.b (a0)+
  465.  beq.s NOTCENTRED
  466.  moveq #-1,d5
  467.  move.l a0,a4
  468.  moveq #0,d2
  469.  moveq #0,d3
  470.  move.w #79,d0    ; number of chars
  471. .addup:
  472.  addq #1,d5
  473.  move.b (a4)+,d2
  474.  move.b -32(a3,d2.w),d4
  475.  add.w d4,d3
  476.  cmp.b #32,d2
  477.  beq.s .DONTPUTIN
  478.  move.w d5,d6
  479.  move.w d3,d1
  480. .DONTPUTIN:
  481.  dbra d0,.addup
  482.  asr.w #1,d1
  483.  neg.w d1
  484.  add.w #320,d1    ; horiz pos of start x
  485.  
  486. NOTCENTRED:
  487.  move.w d6,d7
  488. DOACHAR:
  489.  moveq #0,d2
  490.  move.b (a0)+,d2
  491.  sub.w #32,d2
  492.  moveq #0,d6
  493.  move.b (a3,d2.w),d6
  494.  asl.w #5,d2
  495.  lea (a2,d2.w),a4    ; char font
  496. val SET 0
  497.  REPT 16
  498.  move.w (a4)+,d0
  499.  bfins d0,val(a1){d1:d6}
  500. val SET val+80
  501.  ENDR
  502.  add.w d6,d1
  503.  dbra d7,DOACHAR
  504.  movem.l (a7)+,d0/a0/d7
  505.  rts 
  506.  
  507.  
  508. CLRTWEENSCRN:
  509.  move.l TEXTSCRN,a0
  510.  move.w #(10240/16)-1,d0
  511.  move.l #$0,d1
  512. .lll
  513.  move.l d1,(a0)+
  514.  move.l d1,(a0)+
  515.  move.l d1,(a0)+
  516.  move.l d1,(a0)+
  517.  move.l d1,(a0)+
  518.  move.l d1,(a0)+
  519.  move.l d1,(a0)+
  520.  move.l d1,(a0)+
  521.  dbra d0,.lll
  522.  rts
  523.  
  524. LEVTOPLAY: dc.w 0
  525.  
  526. COPYLINK: dc.l 0
  527.  
  528. PLAYTHEGAME:
  529.  
  530.  move.w #0,TXTCOLL
  531.  
  532.  bsr CLRTWEENSCRN
  533.  
  534.  cmp.b #'n',mors
  535.  bne.s .notext
  536.  bsr TWEENTEXT
  537. .notext
  538.  
  539. ;charlie 
  540.  move.l #TEXTCOP,$dff080
  541.  
  542.  move.w #$10,d0
  543.  move.w #7,d1
  544.  
  545. .fdup
  546.  move.w d0,TXTCOLL
  547.  add.w #$121,d0
  548. .wtframe:
  549.  btst #5,$dff000+intreqrl
  550.  beq.s .wtframe
  551.  move.w #$0020,$dff000+intreq
  552.  dbra d1,.fdup
  553.  
  554.  jsr INITCOPPERSCRN
  555.  
  556.  st DOUBLEHEIGHT
  557.  st DOUBLEWIDTH
  558.  
  559.  move.l #$dff000,a6
  560.  jsr SETPLAYERS
  561.  
  562.  move.l #0,TYPEOFMEM
  563.  move.l #LLname,a0
  564.  jsr LOADAFILE
  565.  move.l d0,LINKS
  566.  
  567.  move.l #0,TYPEOFMEM
  568.  move.l #LLFname,a0
  569.  jsr LOADAFILE
  570.  move.l d0,FLYLINKS
  571.  
  572. ; Get level memory.
  573.  
  574.  move.l #1,d1
  575.  move.l #40000,d0
  576.  move.l 4.w,a6
  577.  jsr -198(a6)
  578.  move.l d0,LEVELGRAPHICS
  579.  
  580.  move.l #1,d1
  581.  move.l #40000,d0
  582.  move.l 4.w,a6
  583.  jsr -198(a6)
  584.  move.l d0,LEVELCLIPS
  585.  
  586.  move.l #$dff000,a6
  587.  
  588. ; move.b LEVTOPLAY,d0
  589. ; move.b d0,LEVA
  590. ; move.b d0,LEVB
  591. ; move.b d0,LEVC
  592. ; move.b d0,LEVD
  593. ; move.b d0,LEVE
  594.  
  595.  
  596. ; move.l #LEVELDATAD,LEVELDATA
  597. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  598. ; move.l #LEVELCLIPSD,LEVELCLIPS
  599.  
  600. ; bra noload
  601.  
  602. *********************************
  603.  
  604. ; move.l doslib,a6
  605. ; move.l #LLname,d1
  606. ; move.l #1005,d2
  607. ; jsr -30(a6)
  608. ; move.l d0,LLhandle
  609. ;
  610. ; move.l doslib,a6
  611. ; move.l d0,d1
  612. ; move.l #LINKS,d2
  613. ; move.l #10000,d3
  614. ; jsr -42(a6)
  615. ;
  616. ; move.l doslib,a6
  617. ; move.l LLhandle,d1
  618. ; jsr -36(a6)
  619.  
  620.  ********************************
  621.  
  622. ; move.l doslib,a6
  623. ; move.l #LLFname,d1
  624. ; move.l #1005,d2
  625. ; jsr -30(a6)
  626. ; move.l d0,LLhandle
  627.  
  628. ; move.l doslib,a6
  629. ; move.l d0,d1
  630. ; move.l #FLYLINKS,d2
  631. ; move.l #10000,d3
  632. ; jsr -42(a6)
  633.  
  634. ; move.l doslib,a6
  635. ; move.l LLhandle,d1
  636. ; jsr -36(a6)
  637.  
  638.  ************************
  639.  ********
  640.  
  641.  
  642.  move.l doslib,a6
  643.  move.l #LDname,d1
  644.  move.l #1005,d2
  645.  jsr -30(a6)
  646.  move.l d0,LDhandle
  647.  
  648.  move.l doslib,a6
  649.  move.l d0,d1
  650.  move.l LEVELCLIPS,d2
  651.  move.l #40000,d3
  652.  jsr -42(a6)
  653.  
  654.  move.l doslib,a6
  655.  move.l LDhandle,d1
  656.  jsr -36(a6)
  657.  
  658. *************************************
  659.     move.l    LEVELCLIPS,d0
  660.     moveq    #0,d1
  661.     move.l LEVELDATA,a0
  662.     lea    WorkSpace,a1
  663.     lea    $0,a2
  664.     jsr    unLHA
  665. *************************************
  666.  
  667. ********
  668.  
  669.  move.l doslib,a6
  670.  move.l #LGname,d1
  671.  move.l #1005,d2
  672.  jsr -30(a6)
  673.  move.l d0,LGhandle
  674.  
  675.  move.l doslib,a6
  676.  move.l d0,d1
  677.  move.l LEVELCLIPS,d2
  678.  move.l #40000,d3
  679.  jsr -42(a6)
  680.  
  681.  move.l doslib,a6
  682.  move.l LGhandle,d1
  683.  jsr -36(a6)
  684.  
  685. *************************************
  686.     move.l    LEVELCLIPS,d0
  687.     moveq    #0,d1
  688.     move.l LEVELGRAPHICS,a0
  689.     lea    WorkSpace,a1
  690.     lea    $0,a2
  691.     jsr    unLHA
  692. *************************************
  693.  
  694. ********
  695.  
  696.  move.l doslib,a6
  697.  move.l #LCname,d1
  698.  move.l #1005,d2
  699.  jsr -30(a6)
  700.  move.l d0,LChandle
  701.  
  702.  move.l doslib,a6
  703.  move.l d0,d1
  704.  move.l #WorkSpace+16384,d2
  705.  move.l #16000,d3
  706.  jsr -42(a6)
  707.  
  708.  move.l doslib,a6
  709.  move.l LChandle,d1
  710.  jsr -36(a6)
  711.  
  712. *************************************
  713.     move.l    #WorkSpace+16384,d0
  714.     moveq    #0,d1
  715.     move.l LEVELCLIPS,a0
  716.     lea    WorkSpace,a1
  717.     lea    $0,a2
  718.     jsr    unLHA
  719. *************************************
  720.  
  721.  
  722. *******
  723.  
  724. noload:
  725.  
  726. ********
  727.  
  728. ; move.l doslib,a6
  729. ; move.l #Prefsname,d1
  730. ; move.l #1005,d2
  731. ; jsr -30(a6)
  732. ; move.l d0,Prefshandle
  733.  
  734. ; move.l doslib,a6
  735. ; move.l d0,d1
  736. ; move.l #Prefsfile,d2
  737. ; move.l #50,d3
  738. ; jsr -42(a6)
  739.  
  740. ; move.l doslib,a6
  741. ; move.l Prefshandle,d1
  742. ; jsr -36(a6)
  743.  
  744. *******
  745.  
  746.  IFNE CD32VER
  747.  move.l doslib,a6
  748.  move.l #115,d1
  749.  jsr -198(a6)
  750.  ENDC
  751.  
  752.  
  753. ; move.l doslib,d0
  754. ; move.l d0,a1
  755. ; move.l 4.w,a6
  756. ; jsr CloseLib(a6)
  757.  
  758.  move.l #$dff000,a6
  759.  
  760. charlie:
  761. ; jmp  ENDGAMESCROLL
  762.  
  763.     move.w #$87c0,dmacon(a6)
  764.  
  765.     move.w    #%1000000000100000,dmacon(a6)
  766.  
  767. ; move.w intenar(a6),saveinters
  768.     
  769.     move.w #%00101111,intena(a6)
  770.  
  771.     move.w #255,adkcon(a6)
  772.  
  773.  
  774. *** Put myself in supervisor mode
  775.  
  776.  bra blag
  777. ; move.l $6c,d0
  778. ; move.l #blag,$6c
  779. ; move.w #$8010,intreq(a6)
  780.  
  781.  rts
  782.  
  783. saveit: ds.l 10
  784. doslibname: dc.b 'dos.library',0
  785.  even
  786. doslib: dc.l 0
  787.  
  788. mors: dc.w 0
  789.  
  790. LDname: dc.b 'tkg2:levels/level_'
  791. LEVA:
  792.  dc.b 'a/twolev.bin',0
  793.  even
  794. LDhandle: dc.l 0
  795. LGname: dc.b 'tkg2:levels/level_'
  796. LEVB:
  797.  dc.b 'a/twolev.graph.bin',0
  798.  even
  799. LGhandle: dc.l 0
  800. LCname: dc.b 'tkg2:levels/level_'
  801. LEVC:
  802.  dc.b 'a/twolev.clips',0
  803.  even
  804. LChandle: dc.l 0
  805. LLname: dc.b 'tkg2:levels/level_'
  806. LEVD:
  807.  dc.b 'a/twolev.map',0
  808.  even
  809. LLFname: dc.b 'tkg2:levels/level_'
  810. LEVE:
  811.  dc.b 'a/twolev.flymap',0
  812.  even
  813. LLhandle: dc.l 0
  814.  
  815.     cnop    0,4
  816.  
  817. Prefsname: dc.b 'ram:prefs',0
  818.  even
  819. Prefshandle: dc.l 0
  820.  
  821. Prefsfile:
  822.  dc.b 'k4nx'
  823.  
  824.  even
  825.  
  826.  cnop 0,4
  827.  
  828. VBLANKInt
  829.  dc.l 0,0
  830.  dc.b NT_INTERRUPT,9
  831.  dc.l Prefsname
  832.  dc.l 0
  833.  dc.l Chan0inter
  834.  
  835.  
  836. KEYInt
  837.  dc.l 0,0
  838.  dc.b NT_INTERRUPT,127
  839.  dc.l Prefsname
  840.  dc.l 0
  841.  dc.l key_interrupt
  842.  
  843.  
  844. blag:
  845. ; move.w #$10,intreq(a6)
  846. ; move.l d0,$6c
  847. ; move.w #$7fff,intena(a6)
  848.  
  849. ; move.w #$20,$dff1dc
  850.  
  851. ; move.l 4.w,a6
  852. ; lea VBLANKInt(pc),a1
  853. ; moveq #INTB_COPER,d0
  854. ; jsr _LVOAddIntServer(a6)
  855.  
  856. ****************************
  857. * Initialize level
  858. ****************************
  859. * Poke all clip offsets into
  860. * correct bit of level data.
  861. ****************************
  862.  move.l LEVELGRAPHICS,a0
  863.  move.l 12(a0),a1
  864.  add.l a0,a1
  865.  move.l a1,ZoneGraphAdds
  866.  move.l (a0),a1
  867.  add.l a0,a1
  868.  move.l a1,DoorData
  869.  move.l 4(a0),a1
  870.  add.l a0,a1
  871.  move.l a1,LiftData
  872.  move.l 8(a0),a1
  873.  add.l a0,a1
  874.  move.l a1,SwitchData
  875.  adda.w #16,a0
  876.  move.l a0,ZoneAdds
  877.  
  878.  move.l LEVELDATA,a4
  879.  lea 160*10(a4),a1
  880.  
  881.  lea 54(a1),a2
  882.  move.l a2,CPtPos
  883.  move.w 12(a1),NumCPts
  884.  move.w 14(a1),NumLevPts
  885.  
  886.  move.l 16+6(a1),a2
  887.  add.l a4,a2
  888.  move.l a2,Points
  889.  move.w 8+6(a1),d0
  890.  lea 4(a2,d0.w*4),a2
  891.  move.l a2,PointBrights
  892.  move.w 16(a1),d0
  893.  addq #1,d0
  894.  muls #80,d0
  895.  add.l d0,a2
  896.  move.l a2,ZoneBorderPts
  897.  
  898.  move.l 20+6(a1),a2
  899.  add.l a4,a2
  900.  move.l a2,FloorLines
  901.  move.w -2(a2),ENDZONE
  902.  move.l 24+6(a1),a2
  903.  add.l a4,a2
  904.  move.l a2,ObjectData
  905. *****************************************
  906. * Just for charles
  907.  
  908. ; move.w #$6060,6(a2)
  909. ; move.l #$d0000,8(a2)
  910. ; sub.w #40,4(a2)
  911. ; move.w #45*256+45,14(a2)
  912. ****************************************
  913.  move.l 28+6(a1),a2
  914.  add.l a4,a2
  915.  move.l a2,PlayerShotData
  916.  move.l 32+6(a1),a2
  917.  add.l a4,a2
  918.  move.l a2,NastyShotData
  919.  
  920.  add.l #64*20,a2
  921.  move.l a2,OtherNastyData
  922.  
  923.  move.l 36+6(a1),a2
  924.  add.l a4,a2
  925.  move.l a2,ObjectPoints  
  926.  move.l 40+6(a1),a2
  927.  add.l a4,a2
  928.  move.l a2,PLR1_Obj
  929.  move.l 44+6(a1),a2
  930.  add.l a4,a2
  931.  move.l a2,PLR2_Obj
  932.  move.w 14+6(a1),NumObjectPoints
  933.  
  934. ; bra noclips
  935.   
  936.  move.l LEVELCLIPS,a2
  937.  moveq #0,d0
  938.  move.w 10+6(a1),d7    ;numzones
  939.  move.w d7,NUMZONES
  940. assignclips:
  941.  move.l (a0)+,a3
  942.  add.l a4,a3    ; pointer to a zone
  943.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  944. dowholezone:
  945.  tst.w (a3)
  946.  blt.s nomorethiszone
  947.  tst.w 2(a3)
  948.  blt.s thisonenull
  949.  
  950.  move.l d0,d1
  951.  asr.l #1,d1
  952.  move.w d1,2(a3)
  953.  
  954. findnextclip:
  955.  cmp.w #-2,(a2,d0.l)
  956.  beq.s foundnextclip
  957.  addq.l #2,d0
  958.  bra.s findnextclip
  959. foundnextclip
  960.  addq.l #2,d0
  961.  
  962. thisonenull:
  963.  addq #8,a3 
  964.  bra.s dowholezone
  965. nomorethiszone:
  966.  dbra d7,assignclips
  967.  
  968.  lea (a2,d0.l),a2
  969.  move.l a2,CONNECT_TABLE
  970.  
  971. noclips:
  972.  
  973. * Put in addresses of glowything
  974.  
  975.  
  976. ************************************
  977.  
  978. ; cmp.b #'k',Prefsfile
  979. ; bne.s nkb
  980.  
  981. ;nkb:
  982. ; cmp.b #'m',Prefsfile
  983. ; bne.s nmc
  984. ; clr.b PLR1KEYS
  985. ; clr.b PLR1PATH
  986. ; st PLR1MOUSE
  987. ; clr.b PLR1JOY
  988. ;nmc:
  989. ; cmp.b #'j',Prefsfile
  990. ; bne.s njc
  991. ; clr.b PLR1KEYS
  992. ; clr.b PLR1PATH
  993. ; clr.b PLR1MOUSE
  994. ; st PLR1JOY
  995. ;njc:
  996.  
  997.  clr.b PLR1_StoodInTop
  998.  move.l #playerheight,PLR1s_height
  999.  
  1000.  move.l #empty,pos1LEFT
  1001.  move.l #empty,pos2LEFT
  1002.  move.l #empty,pos1RIGHT
  1003.  move.l #empty,pos2RIGHT
  1004.  move.l #empty,pos0LEFT
  1005.  move.l #empty,pos3LEFT
  1006.  move.l #empty,pos0RIGHT
  1007.  move.l #empty,pos3RIGHT
  1008.  move.l #emptyend,Samp0endLEFT
  1009.  move.l #emptyend,Samp1endLEFT
  1010.  move.l #emptyend,Samp0endRIGHT
  1011.  move.l #emptyend,Samp1endRIGHT
  1012.  move.l #emptyend,Samp2endLEFT
  1013.  move.l #emptyend,Samp3endLEFT
  1014.  move.l #emptyend,Samp2endRIGHT
  1015.  move.l #emptyend,Samp3endRIGHT
  1016.  
  1017.  
  1018.  move.l #nullline,d0
  1019.  move.w d0,n1l
  1020.  swap d0
  1021.  move.w d0,n1h
  1022.  
  1023.  move.l #PANELSTRIP,d0
  1024.  move.w d0,p1l
  1025.  swap d0
  1026.  move.w d0,p1h
  1027.  swap d0
  1028.  add.l #40*16,d0
  1029.  move.w d0,p2l
  1030.  swap d0
  1031.  move.w d0,p2h
  1032.  swap d0
  1033.  add.l #40*16,d0
  1034.  move.w d0,p3l
  1035.  swap d0
  1036.  move.w d0,p3h
  1037.  swap d0
  1038.  add.l #40*16,d0
  1039.  move.w d0,p4l
  1040.  swap d0
  1041.  move.w d0,p4h
  1042.  swap d0
  1043.  add.l #40*16,d0
  1044.  move.w d0,p5l
  1045.  swap d0
  1046.  move.w d0,p5h
  1047.  swap d0
  1048.  add.l #40*16,d0
  1049.  move.w d0,p6l
  1050.  swap d0
  1051.  move.w d0,p6h
  1052.  swap d0
  1053.  add.l #40*16,d0
  1054.  move.w d0,p7l
  1055.  swap d0
  1056.  move.w d0,p7h
  1057.  swap d0
  1058.  add.l #40*16,d0
  1059.  move.w d0,p8l
  1060.  swap d0
  1061.  move.w d0,p8h
  1062.  
  1063. *******************************
  1064. * TIMER SCREEN SETUP
  1065. ; move.l #TimerScr,d0
  1066. ; move.w d0,p1l
  1067. ; swap d0
  1068. ; move.w d0,p1h
  1069. ; move.w #$1201,Panelcon
  1070.  
  1071. ; move.l #borders,d0
  1072. ; move.w d0,s0l
  1073. ; swap d0
  1074. ; move.w d0,s0h
  1075. ; move.l #borders+2592,d0
  1076. ; move.w d0,s1l
  1077. ; swap d0
  1078. ; move.w d0,s1h
  1079. ; move.l #borders+2592*2,d0
  1080. ; move.w d0,s2l
  1081. ; swap d0
  1082. ; move.w d0,s2h
  1083. ; move.l #borders+2592*3,d0
  1084. ; move.w d0,s3l
  1085. ; swap d0
  1086. ; move.w d0,s3h
  1087.  
  1088.  move.l #nullspr,d0
  1089.  move.w d0,s0l
  1090.  move.w d0,s1l
  1091.  move.w d0,s2l
  1092.  move.w d0,s3l
  1093.  
  1094.  move.w d0,s4l
  1095.  move.w d0,s5l
  1096.  move.w d0,s6l
  1097.  move.w d0,s7l
  1098.  swap d0
  1099.  
  1100.  move.w d0,s0h
  1101.  move.w d0,s1h
  1102.  move.w d0,s2h
  1103.  move.w d0,s3h
  1104.  
  1105.  move.w d0,s4h
  1106.  move.w d0,s5h
  1107.  move.w d0,s6h
  1108.  move.w d0,s7h 
  1109.  
  1110.  
  1111. ; move.w #52*256+64,borders
  1112. ; move.w #212*256+0,borders+8
  1113. ; move.w #52*256+64,borders+2592
  1114. ; move.w #212*256+128,borders+8+2592
  1115. ; move.w #52*256+192,borders+2592*2
  1116. ; move.w #212*256+0,borders+8+2592*2
  1117. ; move.w #52*256+192,borders+2592*3
  1118. ; move.w #212*256+128,borders+8+2592*3
  1119.  
  1120.   
  1121.  
  1122.  move.l #bigfield,d0
  1123.  move.w d0,ocl
  1124.  swap d0
  1125.  move.w d0,och
  1126.  
  1127.  bset.b #1,$bfe001
  1128.  
  1129. ; jmp stuff
  1130. ;endstuff:
  1131.  
  1132.  move.w #$00ff,$dff09e
  1133.  
  1134. ; move.l #Blurbfield,$dff080
  1135.  
  1136.  move.w #0,d0
  1137.  
  1138.  move.l #scrn,d0
  1139.  move.w d0,pl1l
  1140.  swap d0
  1141.  move.w d0,pl1h
  1142.  
  1143.  move.l #scrn+40,d0
  1144.  move.w d0,pl2l
  1145.  swap d0
  1146.  move.w d0,pl2h
  1147.  
  1148.  move.l #scrn+80,d0
  1149.  move.w d0,pl3l
  1150.  swap d0
  1151.  move.w d0,pl3h
  1152.  
  1153.  move.l #scrn+120,d0
  1154.  move.w d0,pl4l
  1155.  swap d0
  1156.  move.w d0,pl4h
  1157.  
  1158.  move.l #scrn+160,d0
  1159.  move.w d0,pl5l
  1160.  swap d0
  1161.  move.w d0,pl5h
  1162.  
  1163.  move.l #scrn+200,d0
  1164.  move.w d0,pl6l
  1165.  swap d0
  1166.  move.w d0,pl6h
  1167.  
  1168.  move.l #scrn+240,d0
  1169.  move.w d0,pl7l
  1170.  swap d0
  1171.  move.w d0,pl7h
  1172.  
  1173.  
  1174. ****************************
  1175.  jsr INITPLAYER
  1176. ; bsr initobjpos
  1177. ****************************
  1178.  
  1179.  
  1180.  move.l #$dff000,a6
  1181.  
  1182.  move.l #null,$dff0a0
  1183.  move.w #100,$dff0a4
  1184.  move.w #443,$dff0a6
  1185.  move.w #63,$dff0a8
  1186.  
  1187.  move.l #null2,$dff0b0
  1188.  move.w #100,$dff0b4
  1189.  move.w #443,$dff0b6
  1190.  move.w #63,$dff0b8
  1191.  
  1192.  move.l #null4,$dff0c0
  1193.  move.w #100,$dff0c4
  1194.  move.w #443,$dff0c6
  1195.  move.w #63,$dff0c8
  1196.  
  1197.  move.l #null3,$dff0d0
  1198.  move.w #100,$dff0d4
  1199.  move.w #443,$dff0d6
  1200.  move.w #63,$dff0d8
  1201.  
  1202.  ifeq CHEESEY
  1203.  
  1204.  move.l #tab,a1
  1205.  move.w #64,d7
  1206.  move.w #0,d6
  1207. outerlop
  1208.  move.l #pretab,a0
  1209.  move.w #255,d5
  1210. scaledownlop:
  1211.  move.b (a0)+,d0
  1212.  ext.w d0
  1213.  ext.l d0
  1214.  muls d6,d0
  1215.  asr.l #6,d0
  1216.  move.b d0,(a1)+
  1217.  dbra d5,scaledownlop
  1218.  addq #1,d6
  1219.  dbra d7,outerlop
  1220.  
  1221.  endc
  1222.  
  1223.  move.l #$dff000,a6
  1224.  
  1225.  move.w #$c018,intena(a6)
  1226.  
  1227.  move.w #$f,dmacon(a6)
  1228.  move.w #$820f,dmacon(a6)
  1229.  
  1230. ; bsr protinit
  1231.  
  1232.  
  1233. ; move.w #$20,$1dc(a6)
  1234.  
  1235.  move.w #$0,$dff034
  1236.  move.w #0,Conditions
  1237.  
  1238.  cmp.b #'n',mors
  1239.  beq.s .nokeys
  1240.  move.w #%111111111111,Conditions
  1241. .nokeys:
  1242.  
  1243.  move.l #KeyMap,a5
  1244.  clr.b $45(a5)
  1245.  
  1246.  move.l #ingame,mt_data
  1247.  clr.b UseAllChannels
  1248.  
  1249. ; cmp.b #'b',Prefsfile+3
  1250. ; bne.s .noback
  1251. ; jsr mt_init
  1252. ;.noback:
  1253. ;
  1254. ; clr.b CHANNELDATA
  1255. ; clr.b CHANNELDATA+8
  1256. ; clr.b CHANNELDATA+16
  1257. ; clr.b CHANNELDATA+24
  1258. ;
  1259. ; cmp.b #'b',Prefsfile+3
  1260. ; bne.s noreserve
  1261. ;
  1262. ; st CHANNELDATA
  1263. ; st CHANNELDATA+8
  1264. ; st CHANNELDATA+16
  1265. ; st CHANNELDATA+24
  1266. ;noreserve: 
  1267.  
  1268. ; st CHANNELDATA
  1269. ; st CHANNELDATA+8
  1270.  
  1271.  move.l SampleList+6*8,pos0LEFT
  1272.  move.l SampleList+6*8+4,Samp0endLEFT
  1273.  move.l #playerheight,PLR1s_targheight
  1274.  move.l #playerheight,PLR1s_height
  1275.  move.l #playerheight,PLR2s_targheight
  1276.  move.l #playerheight,PLR2s_height
  1277.  
  1278. ; cmp.b #'n',mors
  1279. ; beq.s nohandshake
  1280. ;
  1281. ; move.b #%11011000,$bfd200
  1282. ; move.b #%00010000,$bfd000
  1283. ;waitloop:
  1284. ; btst.b #4,$bfd000
  1285. ; bne.s waitloop
  1286. ; move.b #%11000000,$bfd200
  1287.  
  1288. ;wtmouse:
  1289. ; btst #6,$bfe001
  1290. ; bne.s wtmouse
  1291.  
  1292. ;nohandshake:
  1293.  
  1294. ; jmp end
  1295.  
  1296.  move.l COPSCRN1,drawpt
  1297.  move.l COPSCRN2,olddrawpt
  1298.  
  1299.  jsr CLEARKEYBOARD
  1300. ; jsr MAKEBACKROUT
  1301.  
  1302.  clr.b MASTERQUITTING
  1303.  
  1304.  cmp.b #'n',mors
  1305.  seq SLAVEQUITTING
  1306.  
  1307. ; move.w #200,PLAYERTWOHEALTH
  1308. ; move.w #200,PLAYERONEHEALTH
  1309.  
  1310. ; move.l #ANOTHERSUP,$80
  1311. ; trap #0
  1312. ; rts
  1313. ;
  1314. ;ANOTHERSUP:
  1315.  
  1316.  move.l $4.w,a6
  1317.  jsr _LVOSuperState(a6)
  1318.  move.l d0,SSTACK
  1319.  
  1320.  CACHE_FREEZE_OFF d2
  1321.  
  1322. ; charlie
  1323. ; DATA_CACHE_ON d2
  1324.  
  1325.  DataCacheOn
  1326.  
  1327.  move.l $4.w,a6
  1328.  move.l SSTACK,d0
  1329.  jsr _LVOUserState(a6)
  1330.  
  1331.  move.w #0,hitcol
  1332.  move.w #0,hitcol2
  1333.  
  1334.  cmp.b #'n',mors
  1335.  bne.s NOCLTXT
  1336.  
  1337.  move.b #0,lastpressed
  1338. .wtpress
  1339.  btst #6,$bfe001
  1340.  beq.s CLOSETXT
  1341.  btst #7,$bfe001
  1342.  beq.s CLOSETXT
  1343.  tst.b lastpressed
  1344.  beq.s .wtpress
  1345.  
  1346. CLOSETXT:
  1347.  
  1348.  move.w #$8f8,d0
  1349.  move.w #7,d1
  1350.  
  1351. .fdup
  1352.  move.w d0,TXTCOLL
  1353.  sub.w #$121,d0
  1354. .wtframe:
  1355.  btst #5,$dff000+intreqrl
  1356.  beq.s .wtframe
  1357.  move.w #$0020,$dff000+intreq
  1358.  dbra d1,.fdup
  1359.  
  1360.  move.w #0,TXTCOLL
  1361.  
  1362. NOCLTXT:
  1363.  
  1364.  
  1365.  
  1366.     move.l    4.w,a6
  1367.     jsr    _LVOForbid(a6)
  1368. ;    jsr    _LVODisable(a6)
  1369.  
  1370.  
  1371. ;    move.w    #%0111111111111111,intena+$dff000
  1372. ;    move.w    #%1000000011111111,intena+$dff000
  1373.  
  1374.  
  1375. ;charlie 
  1376. ; move.l #PALETTEBIT,$dff084
  1377.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1378.  
  1379.  
  1380.  clr.b PLR1_Ducked
  1381.  clr.b PLR2_Ducked
  1382.  clr.b p1_ducked
  1383.  clr.b p2_ducked
  1384.  
  1385. ********************************************
  1386.  
  1387. ;    jmp docredits
  1388.  
  1389. ********************************************
  1390.  
  1391.  
  1392.  st doanything
  1393.  st dosounds
  1394.  
  1395.  jsr CLRNASTYMEM
  1396.  
  1397.  move.l #COMPACTMAP,a0
  1398.  move.l a0,LASTZONE
  1399.  move.w #255,d0
  1400. .clrmap
  1401.  move.l #0,(a0)+
  1402.  dbra d0,.clrmap
  1403.  
  1404.  move.l #COMPACTMAP,a0
  1405.  move.l #BIGMAP,a1
  1406.  
  1407.  bra NOALLWALLS
  1408.  
  1409.  move.l ZoneGraphAdds,a2
  1410. DOALLWALLS:
  1411.  move.l (a2),d0
  1412.  beq.s nomorezones
  1413.  move.l d0,a3
  1414.  
  1415.  addq #8,a2
  1416.  
  1417.  add.l LEVELGRAPHICS,a3
  1418.  addq #2,a3
  1419.  move.l a1,a4
  1420.  
  1421. ; DOLOWERROOM
  1422.  
  1423. innerwalls:
  1424.  move.b (a3),d1
  1425.  move.b 1(a3),d0
  1426.  bne doneinner
  1427.  
  1428.  tst.b d1
  1429.  blt noid
  1430.  
  1431.  move.b d1,d3
  1432.  and.w #15,d1
  1433.  
  1434.  moveq #0,d0
  1435.  move.w d1,d2
  1436.  add.w d1,d1
  1437.  add.w d2,d1
  1438.  addq #1,d1
  1439.  bset d1,d0
  1440.  btst #4,d3
  1441.  beq.s .nodoor
  1442.  addq #1,d1
  1443.  bset d1,d0
  1444. .nodoor
  1445.  
  1446.  or.l d0,(a0)
  1447.  
  1448.  move.w 2(a3),(a4)
  1449.  move.w 4(a3),2(a4)
  1450.  
  1451. noid:
  1452.  
  1453.  add.w #30,a3
  1454.  addq #4,a4
  1455.  
  1456.  bra innerwalls
  1457.  
  1458. doneinner:
  1459.  
  1460.  add.w #40,a1
  1461.  addq #4,a0
  1462.  
  1463.  bra DOALLWALLS
  1464. nomorezones:
  1465.  
  1466. NOALLWALLS
  1467.  
  1468.  move.w #96,MIDDLEX
  1469.  move.w #192,RIGHTX
  1470.  move.w #160,BOTTOMY
  1471.  move.w #80,TOTHEMIDDLE
  1472.  clr.b FULLSCR
  1473. ; move.l scrn,a0
  1474. ; jsr WIPEDISPLAY
  1475. ; move.l scrn2,a0
  1476. ; jsr WIPEDISPLAY
  1477.  
  1478.  st PLAYERONEGUNS+1
  1479.  st PLAYERTWOGUNS+1
  1480.  
  1481.  move.w #100,timetodamage
  1482.  
  1483.  move.w #299,d0
  1484.  move.l #DAMAGED,a0
  1485. CLRDAM:
  1486.  move.w #0,(a0)+
  1487.  dbra d0,CLRDAM
  1488.  
  1489.  moveq #0,d0
  1490.  move.w d0,STOPOFFSET
  1491.  neg.w d0
  1492.  add.w TOTHEMIDDLE,d0
  1493.  move.w d0,SMIDDLEY
  1494.  asr.w #1,d0
  1495.  muls #104*4,d0
  1496.  move.l d0,SBIGMIDDLEY
  1497.  
  1498.  move.w #0,PLR1_AIMSPD
  1499.  move.w #0,PLR2_AIMSPD
  1500.  
  1501. ; move.l scrn,SCRNSHOWPT
  1502.  
  1503. ; move.l scrn2,SCRNDRAWPT
  1504.  
  1505.  move.w #%110000000000,$dff034
  1506.  
  1507.  
  1508. ; add.l #PALETTEBIT,d1
  1509. ; tst.l d0
  1510. ; beq.s nofadedownhc
  1511. ; sub.l #2116,d0
  1512. ; move.l d0,hitcol
  1513. ;nofadedownhc:
  1514. ;
  1515.  move.l #PALETTEBIT,a0
  1516.  move.l #PALETTESPACE,a1
  1517.  move.l #(2116/4)-2,d0
  1518. putinpal:
  1519.  move.l (a0)+,(a1)+
  1520.  dbra d0,putinpal
  1521.  
  1522.  
  1523.  move.w #4,WIDESCRN
  1524.  
  1525.  move.w #80,SMIDDLEY
  1526.  move.l #40*104*4,SBIGMIDDLEY
  1527.  move.w #0,STOPOFFSET
  1528.  move.w #80,MIDDLEY
  1529.  move.l #40*104*4,BIGMIDDLEY
  1530.  move.w #0,TOPOFFSET
  1531.  
  1532. lop:
  1533.  
  1534.  move.b MAPON,REALMAPON
  1535.  
  1536.  move.b FULLSCRTEMP,d0
  1537.  move.b FULLSCR,d1
  1538.  eor.b d1,d0
  1539.  beq.s .notswapscr2
  1540.  
  1541.  move.b FULLSCRTEMP,FULLSCR
  1542.  beq.s .notswapscr3
  1543.  
  1544.  move.w #144,MIDDLEX
  1545.  move.w #288,RIGHTX
  1546.  move.w #232,BOTTOMY
  1547.  move.w #120,TOTHEMIDDLE
  1548. ; move.l SCRNSHOWPT,a0
  1549. ; jsr WIPEDISPLAY
  1550. ; move.l SCRNDRAWPT,a0
  1551. ; jsr WIPEDISPLAY
  1552.  
  1553.  bra.s .notswapscr2
  1554.  
  1555. .notswapscr3:
  1556.  move.w #96,MIDDLEX
  1557.  move.w #192,RIGHTX
  1558.  move.w #160,BOTTOMY
  1559.  move.w #80,TOTHEMIDDLE
  1560. ; move.l SCRNSHOWPT,a0
  1561. ; jsr WIPEDISPLAY
  1562. ; move.l SCRNDRAWPT,a0
  1563. ; jsr WIPEDISPLAY
  1564. .notswapscr2:
  1565.  
  1566.  
  1567.  btst #6,$bfe001
  1568. ;charlie bne.b .nocop
  1569.  
  1570. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1571.  
  1572. .nocop
  1573.  
  1574.  move.l #KeyMap,a5
  1575.  
  1576.  cmp.b #'n',mors
  1577.  bne .nopause
  1578.  tst.b $19(a5)
  1579.  beq.s .nopause
  1580.  clr.b doanything
  1581.  
  1582. .waitrel:
  1583.  
  1584.  tst.b PLR1JOY
  1585.  beq.s .NOJOY
  1586.  jsr _ReadJoy1
  1587. .NOJOY
  1588.  
  1589.  tst.b $19(a5)
  1590.  bne.s .waitrel
  1591.  
  1592.  bsr PAUSEOPTS
  1593.  
  1594.  st doanything
  1595. .nopause: 
  1596.  
  1597.  move.w hitcol,d0
  1598.  beq.s nofadedownhc
  1599.  sub.w #$100,d0
  1600.  move.w d0,hitcol
  1601.  move.w d0,hitcol2
  1602. nofadedownhc:
  1603.  
  1604.  
  1605. ********************************************
  1606. * Remove after colour testing 
  1607. ; moveq #0,d1
  1608. ********************************************
  1609.  
  1610. ; add.l #PALETTEBIT,d1
  1611. ; tst.l d0
  1612. ; beq.s nofadedownhc
  1613. ; sub.l #2116,d0
  1614. ; move.l d0,hitcol
  1615. ;nofadedownhc:
  1616. ;
  1617. ; move.l d1,a0
  1618. ; move.l #PALETTESPACE,a1
  1619. ; move.l #(2116/4)-2,d0
  1620. ;putinpal:
  1621. ; move.l (a0)+,(a1)+
  1622. ; dbra d0,putinpal
  1623.  
  1624.  
  1625.  
  1626.  st READCONTROLS
  1627.  move.l #$dff000,a6
  1628.  
  1629.  
  1630.  cmp.b #'n',mors
  1631.  beq .nopause
  1632.  
  1633.  move.b SLAVEPAUSE,d0
  1634.  or.b MASTERPAUSE,d0
  1635.  beq.s .nopause
  1636.  clr.b doanything
  1637.  
  1638.  move.l #KeyMap,a5
  1639. .waitrel:
  1640.  
  1641.  cmp.b #'s',mors
  1642.  beq.s .RE2
  1643.  tst.b PLR1JOY
  1644.  beq.s .NOJOY
  1645.  jsr _ReadJoy1
  1646.  bra .RE1
  1647. .RE2:
  1648.  tst.b PLR2JOY
  1649.  beq.s .NOJOY
  1650.  jsr _ReadJoy2
  1651. .RE1
  1652. .NOJOY:
  1653.  tst.b $19(a5)
  1654.  bne.s .waitrel
  1655.  
  1656.  bsr PAUSEOPTS
  1657.  
  1658.  cmp.b #'m',mors
  1659.  bne.s .slavelast
  1660.  Jsr SENDFIRST
  1661.  bra .masfirst
  1662. .slavelast
  1663.  Jsr RECFIRST
  1664. .masfirst:
  1665.  clr.b SLAVEPAUSE
  1666.  clr.b MASTERPAUSE
  1667.  st doanything
  1668.  
  1669. .nopause: 
  1670.  
  1671.  
  1672.  move.l drawpt,d0
  1673.  move.l olddrawpt,drawpt
  1674.  move.l d0,olddrawpt
  1675.  
  1676. ; move.l SCRNDRAWPT,d0
  1677. ; move.l SCRNSHOWPT,SCRNDRAWPT
  1678. ; move.l d0,SCRNSHOWPT
  1679.  
  1680.  move.l d0,$dff084    
  1681.  move.l drawpt,a3
  1682. ; move.l COPSCRNBUFF,a3
  1683.  adda.w #10,a3
  1684.  move.l a3,frompt
  1685.  add.l #104*4*40,a3
  1686.  move.l a3,midpt
  1687.  
  1688.  cmp.b #'s',mors
  1689.  beq.s nowaitslave
  1690.  
  1691. waitfortop:
  1692.  
  1693.  btst.b #0,intreqrl(a6)
  1694.  beq.b waitfortop
  1695.  
  1696.  move.w #$1,intreq(a6)
  1697. ; move.l #PLR1_GunData,GunData
  1698.  move.b PLR1_GunSelected,GunSelected
  1699.  bra waitmaster
  1700.  
  1701. nowaitslave:
  1702. ; move.l #PLR2_GunData,GunData
  1703.  move.b PLR2_GunSelected,GunSelected
  1704. waitmaster:
  1705.  
  1706.  
  1707.  move.l #SMIDDLEY,a0
  1708.  movem.l (a0)+,d0/d1
  1709.  move.l d0,MIDDLEY
  1710.  move.l d1,MIDDLEY+4
  1711.  
  1712.  move.l waterpt,a0
  1713.  move.l (a0)+,watertouse
  1714.  cmp.l #endwaterlist,a0
  1715.  blt.s okwat
  1716.  move.l #waterlist,a0
  1717. okwat:
  1718.  move.l a0,waterpt
  1719.  
  1720.  add.w #640,wtan
  1721.  and.w #8191,wtan
  1722.  add.l #1,wateroff
  1723.  and.l #$3fff3fff,wateroff
  1724.  
  1725.  move.l PLR1_xoff,OLDX1
  1726.  move.l PLR1_zoff,OLDZ1
  1727.  move.l PLR2_xoff,OLDX2
  1728.  move.l PLR2_zoff,OLDZ2
  1729.  
  1730.  move.l #$dff000,a6
  1731.  
  1732.  cmp.b #'s',mors
  1733.  beq ASlaveShouldWaitOnHisMaster
  1734.  
  1735.  cmp.b #'n',mors
  1736.  bne NotOnePlayer
  1737.  
  1738.  movem.l d0-d7/a0-a6,-(a7)
  1739.  
  1740.  moveq #0,d0
  1741.  move.b GunSelected,d0
  1742.  move.l LINKFILE,a6
  1743.  add.l #GunBulletTypes,a6
  1744.  move.w (a6,d0.w*8),d0
  1745.  
  1746.  move.l #PLAYERONEAMMO,a6
  1747.  move.w (a6,d0.w*2),d0
  1748.  move.w d0,Ammo
  1749.  movem.l (a7)+,d0-d7/a0-a6
  1750.  
  1751.  move.w PLAYERONEHEALTH,Energy
  1752.  
  1753.  move.w FramesToDraw,TempFrames
  1754.  cmp.w #15,TempFrames
  1755.  blt.s .okframe
  1756.  move.w #15,TempFrames
  1757. .okframe:
  1758.  move.w #0,FramesToDraw
  1759.  
  1760. *********************************************
  1761. *********** TAKE THIS OUT *******************
  1762. *********************************************
  1763.  
  1764.  move.l CHEATPTR,a4
  1765.  add.l #200000,a4
  1766.  moveq #0,d0
  1767.  move.b (a4),d0
  1768.  
  1769.  move.l #KeyMap,a5
  1770.  tst.b (a5,d0.w)
  1771.  beq.s .nocheat
  1772.  
  1773.  addq #1,a4
  1774.  cmp.l #ENDCHEAT,a4
  1775.  blt.s .nocheat
  1776.  cmp.w #0,CHEATNUM
  1777.  beq.s .nocheat
  1778.  sub.w #1,CHEATNUM
  1779.  move.l #CHEATFRAME,a4
  1780.  move.w #127,PLR1_energy
  1781.  jsr EnergyBar
  1782. .nocheat
  1783.  
  1784.  sub.l #200000,a4
  1785.  move.l a4,CHEATPTR
  1786.  
  1787. **********************************************
  1788. **********************************************
  1789. **********************************************
  1790.  
  1791.  move.l PLR1s_xoff,p1_xoff
  1792.  move.l PLR1s_zoff,p1_zoff
  1793.  move.l PLR1s_yoff,p1_yoff
  1794.  move.l PLR1s_height,p1_height
  1795.  move.w PLR1s_angpos,p1_angpos
  1796.  move.w PLR1_bobble,p1_bobble
  1797.  move.b PLR1_clicked,p1_clicked
  1798.  move.b PLR1_fire,p1_fire
  1799.  clr.b PLR1_clicked
  1800.  move.b PLR1_SPCTAP,p1_spctap
  1801.  clr.b PLR1_SPCTAP
  1802.  move.b PLR1_Ducked,p1_ducked
  1803.  move.b PLR1_GunSelected,p1_gunselected
  1804.  
  1805.  bsr PLR1_Control
  1806.  
  1807.  move.l PLR1_Roompt,a0
  1808.  move.l ToZoneRoof(a0),SplitHeight
  1809.  move.w p1_xoff,THISPLRxoff
  1810.  move.w p1_zoff,THISPLRzoff
  1811.  
  1812.  
  1813.  move.l #$60000,p2_yoff
  1814.  move.l PLR2_Obj,a0
  1815.  move.w #-1,GraphicRoom(a0)
  1816.  move.w #-1,12(a0)
  1817.  move.b #0,17(a0)
  1818.  move.l #BollocksRoom,PLR2_Roompt
  1819.  
  1820.  bra donetalking
  1821.  
  1822. NotOnePlayer:
  1823.  move.l #KeyMap,a5
  1824.  tst.b $19(a5)
  1825.  sne MASTERPAUSE
  1826.  
  1827. *********************************
  1828.  move.w PLAYERONEHEALTH,Energy
  1829. ; change this back
  1830. *********************************
  1831.  movem.l d0-d7/a0-a6,-(a7)
  1832.  
  1833.  moveq #0,d0
  1834.  move.b GunSelected,d0
  1835.  move.l LINKFILE,a6
  1836.  add.l #GunBulletTypes,a6
  1837.  move.w (a6,d0.w*8),d0
  1838.  
  1839.  move.l #PLAYERONEAMMO,a6
  1840.  move.w (a6,d0.w*2),d0
  1841.  move.w d0,Ammo
  1842.  movem.l (a7)+,d0-d7/a0-a6
  1843.  
  1844.  jsr SENDFIRST
  1845.  
  1846.  move.w FramesToDraw,TempFrames
  1847.  cmp.w #15,TempFrames
  1848.  blt.s .okframe
  1849.  move.w #15,TempFrames
  1850. .okframe:
  1851.  move.w #0,FramesToDraw
  1852.  
  1853.  move.l PLR1s_xoff,p1_xoff
  1854.  move.l PLR1s_zoff,p1_zoff
  1855.  move.l PLR1s_yoff,p1_yoff
  1856.  move.l PLR1s_height,p1_height
  1857.  move.w PLR1s_angpos,p1_angpos
  1858.  move.w PLR1_bobble,p1_bobble
  1859.  move.b PLR1_clicked,p1_clicked
  1860.  clr.b PLR1_clicked
  1861.  move.b PLR1_fire,p1_fire
  1862.  move.b PLR1_SPCTAP,p1_spctap
  1863.  clr.b PLR1_SPCTAP
  1864.  move.b PLR1_Ducked,p1_ducked
  1865.  move.b PLR1_GunSelected,p1_gunselected
  1866.  
  1867.  move.l PLR1_AIMSPD,d0
  1868.  jsr SENDFIRST
  1869.  move.l d0,PLR2_AIMSPD
  1870.  
  1871.  move.l p1_xoff,d0
  1872.  jsr SENDFIRST
  1873.  move.l d0,p2_xoff
  1874.  
  1875.  move.l p1_zoff,d0
  1876.  jsr SENDFIRST
  1877.  move.l d0,p2_zoff 
  1878.  
  1879.  move.l p1_yoff,d0
  1880.  jsr SENDFIRST
  1881.  move.l d0,p2_yoff
  1882.   
  1883.  move.l p1_height,d0
  1884.  jsr SENDFIRST
  1885.  move.l d0,p2_height
  1886.  
  1887.  move.w p1_angpos,d0
  1888.  swap d0
  1889.  move.w p1_bobble,d0
  1890.  jsr SENDFIRST
  1891.  move.w d0,p2_bobble
  1892.  swap d0
  1893.  move.w d0,p2_angpos
  1894.  
  1895.  
  1896.  move.w TempFrames,d0
  1897.  swap d0
  1898.  move.b p1_spctap,d0
  1899.  lsl.w #8,d0
  1900.  move.b p1_clicked,d0
  1901.  jsr SENDFIRST
  1902.  move.b d0,p2_clicked
  1903.  lsr.w #8,d0
  1904.  move.b d0,p2_spctap
  1905.  
  1906.  
  1907.  move.w Rand1,d0
  1908.  swap d0
  1909.  move.b p1_ducked,d0
  1910.  lsl.w #8,d0
  1911.  move.b p1_gunselected,d0
  1912.  jsr SENDFIRST
  1913.  move.b d0,p2_gunselected
  1914.  lsr.w #8,d0
  1915.  move.b d0,p2_ducked
  1916.  
  1917.  move.b p1_fire,d0
  1918.  lsl.w #8,d0
  1919.  move.b MASTERQUITTING,d0
  1920.  or.b d0,SLAVEQUITTING
  1921.  swap d0
  1922.  move.b MASTERPAUSE,d0
  1923.  or.b d0,SLAVEPAUSE
  1924.  jsr SENDFIRST
  1925.  or.b d0,MASTERPAUSE
  1926.  or.b d0,SLAVEPAUSE
  1927.  swap d0
  1928.  or.b d0,SLAVEQUITTING
  1929.  or.b d0,MASTERQUITTING
  1930.  lsr.w #8,d0
  1931.  move.b d0,p2_fire
  1932.  
  1933.  bsr PLR1_Control
  1934.  bsr PLR2_Control
  1935.  move.l PLR1_Roompt,a0
  1936.  move.l ToZoneRoof(a0),SplitHeight
  1937.  move.w p1_xoff,THISPLRxoff
  1938.  move.w p1_zoff,THISPLRzoff
  1939.  
  1940.  bra donetalking
  1941.  
  1942. ASlaveShouldWaitOnHisMaster:
  1943.  
  1944.  move.l #KeyMap,a5
  1945.  tst.b $19(a5)
  1946.  sne SLAVEPAUSE
  1947.  
  1948.  movem.l d0-d7/a0-a6,-(a7)
  1949.  
  1950.  moveq #0,d0
  1951.  move.b GunSelected,d0
  1952.  move.l LINKFILE,a6
  1953.  add.l #GunBulletTypes,a6
  1954.  move.w (a6,d0.w*8),d0
  1955.  
  1956.  move.l #PLAYERTWOAMMO,a6
  1957.  move.w (a6,d0.w*2),d0
  1958.  move.w d0,Ammo
  1959.  movem.l (a7)+,d0-d7/a0-a6
  1960.  
  1961.  move.w PLAYERTWOHEALTH,Energy
  1962.  
  1963.  jsr RECFIRST
  1964.  
  1965.  move.l PLR2s_xoff,p2_xoff
  1966.  move.l PLR2s_zoff,p2_zoff
  1967.  move.l PLR2s_yoff,p2_yoff
  1968.  move.l PLR2s_height,p2_height
  1969.  move.w PLR2s_angpos,p2_angpos
  1970.  move.w PLR2_bobble,p2_bobble
  1971.  move.b PLR2_clicked,p2_clicked
  1972.  clr.b PLR2_clicked
  1973.  move.b PLR2_fire,p2_fire
  1974.  move.b PLR2_SPCTAP,p2_spctap
  1975.  clr.b PLR2_SPCTAP
  1976.  move.b PLR2_Ducked,p2_ducked
  1977.  move.b PLR2_GunSelected,p2_gunselected
  1978.  
  1979.  move.l PLR2_AIMSPD,d0
  1980.  jsr RECFIRST
  1981.  move.l d0,PLR1_AIMSPD
  1982.  
  1983.  move.l p2_xoff,d0
  1984.  jsr RECFIRST
  1985.  move.l d0,p1_xoff
  1986.  
  1987.  move.l p2_zoff,d0
  1988.  jsr RECFIRST
  1989.  move.l d0,p1_zoff
  1990.  
  1991.  move.l p2_yoff,d0
  1992.  jsr RECFIRST
  1993.  move.l d0,p1_yoff
  1994.  
  1995.  move.l p2_height,d0
  1996.  jsr RECFIRST
  1997.  move.l d0,p1_height
  1998.  
  1999.  move.w p2_angpos,d0
  2000.  swap d0
  2001.  move.w p2_bobble,d0
  2002.  jsr RECFIRST
  2003.  move.w d0,p1_bobble
  2004.  swap d0
  2005.  move.w d0,p1_angpos
  2006.  
  2007.  
  2008.  move.b p2_spctap,d0
  2009.  lsl.w #8,d0
  2010.  move.b p2_clicked,d0
  2011.  jsr RECFIRST
  2012.  move.b d0,p1_clicked
  2013.  lsr.w #8,d0
  2014.  move.b d0,p1_spctap
  2015.  swap d0
  2016.  move.w d0,TempFrames
  2017.  
  2018.  move.b p2_ducked,d0
  2019.  lsl.w #8,d0
  2020.  move.b p2_gunselected,d0
  2021.  jsr RECFIRST
  2022.  move.b d0,p1_gunselected
  2023.  lsr.w #8,d0
  2024.  move.b d0,p1_ducked
  2025.  swap d0
  2026.  move.w d0,Rand1
  2027.  
  2028.  move.b p2_fire,d0
  2029.  lsl.w #8,d0
  2030.  move.b SLAVEQUITTING,d0
  2031.  or.b d0,MASTERQUITTING
  2032.  swap d0
  2033.  move.b SLAVEPAUSE,d0
  2034.  or.b d0,MASTERPAUSE
  2035.  jsr RECFIRST
  2036.  or.b d0,MASTERPAUSE
  2037.  or.b d0,SLAVEPAUSE
  2038.  swap d0
  2039.  or.b d0,SLAVEQUITTING
  2040.  or.b d0,MASTERQUITTING
  2041.  lsr.w #8,d0
  2042.  move.b d0,p1_fire
  2043.  
  2044.  
  2045.  bsr PLR1_Control
  2046.  bsr PLR2_Control
  2047.  move.w p2_xoff,THISPLRxoff
  2048.  move.w p2_zoff,THISPLRzoff
  2049.  move.l PLR2_Roompt,a0
  2050.  move.l ToZoneRoof(a0),SplitHeight
  2051.  
  2052. donetalking:
  2053.  
  2054.  
  2055.  move.l #ZoneBrightTable,a1
  2056.  move.l ZoneAdds,a2
  2057.  move.l PLR2_ListOfGraphRooms,a0
  2058. ; move.l PLR2_PointsToRotatePtr,a5
  2059.  move.l a0,a5
  2060.  cmp.b #'s',mors
  2061.  beq.s doallz
  2062.  move.l PLR1_ListOfGraphRooms,a0
  2063. ; move.l PLR1_PointsToRotatePtr,a5
  2064.  move.l a0,a5 
  2065. doallz
  2066.  move.w (a0),d0
  2067.  blt.s doneallz
  2068.  add.w #8,a0
  2069.  
  2070.  move.l (a2,d0.w*4),a3
  2071.  add.l LEVELDATA,a3
  2072.  move.w ToZoneBrightness(a3),d2
  2073.  
  2074.  blt.s justbright
  2075.  move.w d2,d3
  2076.  lsr.w #8,d3
  2077.  tst.b d3
  2078.  beq.s justbright
  2079.  
  2080.  move.l #BrightAnimTable,a4
  2081.  move.w -2(a4,d3.w*2),d2
  2082.  
  2083. justbright:
  2084.  muls #32,d2
  2085.  divs #20,d2
  2086.  move.w d2,(a1,d0.w*4)
  2087.  
  2088.  move.w ToUpperBrightness(a3),d2
  2089.  
  2090.  blt.s justbright2
  2091.  move.w d2,d3
  2092.  lsr.w #8,d3
  2093.  tst.b d3
  2094.  beq.s justbright2
  2095.  
  2096.  move.l #BrightAnimTable,a4
  2097.  move.w -2(a4,d3.w*2),d2
  2098.  
  2099. justbright2:
  2100.  
  2101.  muls #32,d2
  2102.  divs #20,d2
  2103.  move.w d2,2(a1,d0.w*4)
  2104.  
  2105.  bra doallz
  2106.  
  2107. doneallz:
  2108.  
  2109.  move.l PointBrights,a2
  2110.  move.l #CurrentPointBrights,a3
  2111. justtheone:
  2112.  move.w (a5),d0
  2113.  blt whythehell
  2114.  addq #8,a5
  2115.  
  2116.  muls #40,d0
  2117.  
  2118.  move.w #39,d7
  2119.  
  2120. allinzone:
  2121.  move.w (a2,d0.w*2),d2
  2122.  
  2123.  tst.b d2
  2124.  blt.s .justbright
  2125.  move.w d2,d3
  2126.  lsr.w #8,d3
  2127.  tst.b d3
  2128.  beq.s .justbright
  2129.  
  2130.  move.w d3,d4
  2131.  and.w #$f,d3
  2132.  lsr.w #4,d4
  2133.  add.w #1,d4
  2134.  move.l #BrightAnimTable,a0
  2135.  move.w -2(a0,d3.w*2),d3
  2136.  ext.w d2
  2137.  sub.w d2,d3
  2138.  muls d4,d3
  2139.  asr.w #4,d3
  2140.  add.w d3,d2
  2141.  
  2142. .justbright:
  2143.  ext.w d2
  2144.  
  2145.  muls #31,d2
  2146.  divs #20,d2
  2147.  bge.s .itspos
  2148.  sub.w #600,d2
  2149. .itspos:
  2150.  add.w #300,d2
  2151.  
  2152.  move.w d2,(a3,d0.w*2)
  2153.  addq #1,d0
  2154.  dbra d7,allinzone
  2155.  
  2156.  bra justtheone
  2157.  
  2158. whythehell:
  2159.  
  2160.  move.l PLR1_Roompt,a0
  2161.  move.l #CurrentPointBrights,a1
  2162.  move.l ZoneBorderPts,a2
  2163.  move.w (a0),d0
  2164.  muls #10,d0
  2165.  lea (a2,d0.w*2),a2
  2166.  lea (a1,d0.w*8),a1
  2167.  
  2168.  moveq #9,d7
  2169.  moveq #0,d0
  2170.  moveq #0,d1
  2171. findaverage:
  2172.  tst.w (a2)+
  2173.  blt.s .foundaverage
  2174.  addq #1,d0
  2175.  move.w (a1)+,d2
  2176.  bge.s .okpos
  2177.  neg.w d2
  2178. .okpos:
  2179.  add.w d2,d1
  2180.  
  2181.  dbra d7,findaverage
  2182.  
  2183. .foundaverage:
  2184.  
  2185.  ext.l d1
  2186.  divs d0,d1
  2187.  sub.w #300,d1
  2188.  move.w d1,PLR1_RoomBright
  2189.  
  2190.  cmp.b #'n',mors
  2191.  beq nosee
  2192.  
  2193.  move.l PLR1_Roompt,FromRoom
  2194.  move.l PLR2_Roompt,ToRoom
  2195.  move.w p1_xoff,Viewerx
  2196.  move.w p1_zoff,Viewerz
  2197.  move.l p1_yoff,d0
  2198.  asr.l #7,d0
  2199.  move.w d0,Viewery
  2200.  move.w p2_xoff,Targetx
  2201.  move.w p2_zoff,Targetz
  2202.  move.l p2_yoff,d0
  2203.  asr.l #7,d0
  2204.  move.w d0,Targety
  2205.  move.b PLR1_StoodInTop,ViewerTop
  2206.  move.b PLR2_StoodInTop,TargetTop
  2207.  jsr CanItBeSeen
  2208.  
  2209.  move.l PLR1_Obj,a0
  2210.  move.b CanSee,d0
  2211.  and.b #2,d0
  2212.  move.b d0,17(a0)
  2213.  move.l PLR2_Obj,a0
  2214.  move.b CanSee,d0
  2215.  and.b #1,d0
  2216.  move.b d0,17(a0)
  2217.  
  2218. nosee:
  2219.  
  2220.  
  2221.  move.w TempFrames,d0
  2222.  add.w d0,p1_holddown
  2223.  cmp.w #30,p1_holddown
  2224.  blt.s oklength
  2225.  move.w #30,p1_holddown
  2226. oklength:
  2227.  
  2228.  tst.b p1_fire
  2229.  bne.s okstillheld
  2230.  sub.w d0,p1_holddown
  2231.  bge.s okstillheld
  2232.  move.w #0,p1_holddown
  2233.  
  2234. okstillheld:
  2235.  
  2236.  move.w TempFrames,d0
  2237.  add.w d0,p2_holddown
  2238.  
  2239.  cmp.w #30,p2_holddown
  2240.  blt.s oklength2
  2241.  move.w #30,p2_holddown
  2242. oklength2:
  2243.  
  2244.  
  2245.  tst.b p2_fire
  2246.  bne.s okstillheld2
  2247.  sub.w d0,p2_holddown
  2248.  bge.s okstillheld2
  2249.  move.w #0,p2_holddown
  2250. okstillheld2:
  2251.  
  2252. ***** CHECKING LIGHT *********
  2253.  
  2254. ; move.w #-20,d0
  2255. ; move.w PLR1_xoff,d1
  2256. ; move.w PLR1_zoff,d2
  2257. ; move.l PLR1_Roompt,a0
  2258. ; move.w (a0),d3
  2259. ; move.w PLR1_angpos,d4
  2260. ;
  2261. ; jsr BRIGHTENPOINTSANGLE
  2262.  
  2263. ******************************
  2264.  
  2265. ; move.l #PLR1_GunData,a1
  2266. ; move.w p1_holddown,d0
  2267. ; move.w #50,10+32*3(a1)
  2268. ; move.l #PLR2_GunData,a1
  2269. ; move.w p2_holddown,d0
  2270. ; move.w #50,10+32*3(a1)
  2271.  
  2272. ******************************************
  2273. ******************************************
  2274.  
  2275.  move.w TempFrames,d1
  2276.  bgt.s noze
  2277.  moveq #1,d1
  2278. noze:
  2279.  
  2280.  move.w PLR1_xoff,d0
  2281.  sub.w OLDX1,d0
  2282.  asl.w #4,d0
  2283.  ext.l d0
  2284.  divs d1,d0
  2285.  move.w d0,XDIFF1
  2286.  move.w PLR2_xoff,d0
  2287.  sub.w OLDX2,d0
  2288.  asl.w #4,d0
  2289.  ext.l d0
  2290.  divs d1,d0
  2291.  move.w d0,XDIFF2
  2292.  move.w PLR1_zoff,d0
  2293.  sub.w OLDZ1,d0
  2294.  asl.w #4,d0
  2295.  ext.l d0
  2296.  divs d1,d0
  2297.  move.w d0,ZDIFF1
  2298.  move.w PLR2_zoff,d0
  2299.  sub.w OLDZ2,d0
  2300.  asl.w #4,d0
  2301.  ext.l d0
  2302.  divs d1,d0
  2303.  move.w d0,ZDIFF2
  2304.  
  2305.  cmp.b #'s',mors
  2306.  beq.s ImPlayer2OhYesIAm
  2307.  bsr USEPLR1
  2308.  bra IWasPlayer1
  2309.  
  2310. ImPlayer2OhYesIAm:
  2311.  bsr USEPLR2
  2312. IWasPlayer1:
  2313.  
  2314.  
  2315.  cmp.b #'s',mors
  2316.  beq drawplayer2
  2317.  
  2318.  move.w #0,scaleval
  2319.  
  2320.  move.l PLR1_xoff,xoff
  2321.  move.l PLR1_yoff,yoff
  2322.  move.l PLR1_zoff,zoff
  2323.  move.w PLR1_angpos,angpos
  2324.  move.w PLR1_cosval,cosval
  2325.  move.w PLR1_sinval,sinval
  2326.  
  2327.  
  2328.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2329.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2330.  move.l PLR1_Roompt,Roompt
  2331.  
  2332.  move.l #KeyMap,a5
  2333.  moveq #0,d5
  2334.  move.b look_behind_key,d5
  2335.  tst.b (a5,d5.w)
  2336.  beq.s .nolookback
  2337.  
  2338.  move.l PLR1_Obj,a0
  2339.  move.w #-1,12+128(a0)
  2340.  
  2341.  eor.w #4096,angpos 
  2342.  neg.w cosval
  2343.  neg.w sinval
  2344. .nolookback:
  2345.  
  2346.  bsr OrderZones
  2347.  jsr objmoveanim
  2348.  jsr EnergyBar
  2349.  
  2350.  
  2351.  jsr AmmoBar
  2352.  
  2353. ;********************************************
  2354. ;************* Do reflection ****************
  2355. ;
  2356. ; move.l ListOfGraphRooms,a0
  2357. ; move.l ZoneAdds,a1
  2358. ;checkwaterheights
  2359. ; move.w (a0),d0
  2360. ; blt allzonesdone
  2361. ; addq #8,a0
  2362. ; move.l (a1,d0.w*4),a2
  2363. ; 
  2364. ; add.l LEVELDATA,a2
  2365. ; 
  2366. ; move.l ToZoneWater(a2),d0
  2367. ; cmp.l ToZoneFloor(a2),d0
  2368. ; blt.s WEHAVEAHEIGHT
  2369. ; 
  2370. ; bra.s checkwaterheights
  2371. ;
  2372. ;WEHAVEAHEIGHT:
  2373. ;
  2374. ; sub.l yoff,d0
  2375. ; blt.s underwater
  2376. ; 
  2377. ; add.l d0,d0
  2378. ; add.l d0,yoff
  2379. ; 
  2380. ; move.l FASTBUFFER2,FASTBUFFER
  2381. ; move.w #0,leftclip
  2382. ; move.w RIGHTX,rightclip
  2383. ; move.w #0,deftopclip
  2384. ; move.w #BOTTOMY/2,defbotclip
  2385. ; move.w #0,topclip
  2386. ; move.w #BOTTOMY/2,botclip
  2387. ;
  2388. ; clr.b DOANYWATER 
  2389. ; 
  2390. ; bsr DrawDisplay
  2391. ; 
  2392. ;allzonesdone:
  2393. ;underwater:
  2394.  
  2395. ********************************************
  2396.  
  2397.  st DOANYWATER
  2398.  
  2399.  move.l PLR1_yoff,yoff
  2400.  
  2401.  move.w #0,leftclip
  2402.  move.w RIGHTX,rightclip
  2403.  move.w #0,deftopclip
  2404.  move.w WIDESCRN,d0
  2405.  add.w d0,deftopclip
  2406.  
  2407.  move.w BOTTOMY,defbotclip
  2408.  sub.w d0,defbotclip
  2409.  move.w #0,topclip
  2410.  add.w d0,topclip
  2411.  move.w BOTTOMY,botclip
  2412.  sub.w d0,botclip
  2413. ; sub.l #10*104*4,frompt
  2414. ; sub.l #10*104*4,midpt
  2415.  
  2416. * Subroom loop
  2417.  
  2418.  bsr DrawDisplay 
  2419.  
  2420.  bra nodrawp2
  2421.  
  2422. drawplayer2
  2423.  
  2424.  move.w #0,scaleval
  2425.  move.l PLR2_xoff,xoff
  2426.  move.l PLR2_yoff,yoff
  2427.  move.l PLR2_zoff,zoff
  2428.  move.w PLR2_angpos,angpos
  2429.  move.w PLR2_cosval,cosval
  2430.  move.w PLR2_sinval,sinval 
  2431.  
  2432.  
  2433.  
  2434.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2435.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2436.  move.l PLR2_Roompt,Roompt
  2437.  
  2438.  move.l #KeyMap,a5
  2439.  moveq #0,d5
  2440.  move.b look_behind_key,d5
  2441.  tst.b (a5,d5.w)
  2442.  beq.s .nolookback
  2443.  
  2444.  move.l PLR1_Obj,a0
  2445.  move.w #-1,12+128(a0)
  2446.  eor.w #4096,angpos 
  2447.  
  2448.  neg.w cosval
  2449.  neg.w sinval
  2450. .nolookback:
  2451.  
  2452.  bsr OrderZones
  2453.  jsr objmoveanim
  2454.  jsr EnergyBar
  2455.  jsr AmmoBar
  2456.  
  2457.  move.w WIDESCRN,d0
  2458.  
  2459.  move.w #0,leftclip
  2460.  move.w RIGHTX,rightclip
  2461.  move.w #0,deftopclip
  2462.  add.w d0,deftopclip
  2463.  move.w BOTTOMY,defbotclip
  2464.  sub.w d0,defbotclip
  2465.  move.w #0,topclip
  2466.  add.w d0,topclip
  2467.  move.w BOTTOMY,botclip
  2468.  sub.w d0,botclip
  2469.  
  2470.  bsr DrawDisplay
  2471.  
  2472. nodrawp2:
  2473.  
  2474. ***************************************** 
  2475. * Copy from copbuff to chip ram
  2476.  
  2477.  
  2478. ; move.l drawpt,a3
  2479. ; adda.w #10,a3
  2480. ; move.l COPSCRNBUFF,a2
  2481. ; move.w #2,d6
  2482. ; adda.w #10,a2
  2483. ;COPYOUT
  2484. ; move.w #31,d0
  2485. ;COPYDOWN1:
  2486. ; move.w #3,d1
  2487. ; move.l a2,a4
  2488. ; move.l a3,a5
  2489. ;.inlop1:
  2490. ;val SET 0
  2491. ; REPT 20
  2492. ; move.w val(a4),val(a5)
  2493. ;val SET val+104*4
  2494. ; ENDR
  2495. ; adda.l #104*4*20,a4
  2496. ; adda.l #104*4*20,a5
  2497. ; dbra d1,.inlop1
  2498. ; addq #4,a2
  2499. ; addq #4,a3
  2500. ; dbra d0,COPYDOWN1
  2501. ; addq #4,a2
  2502. ; addq #4,a3
  2503. ; dbra d6,COPYOUT 
  2504.  
  2505.  tst.b REALMAPON
  2506.  beq.s .nomap
  2507.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2508. .nomap
  2509.  
  2510.  move.w WIDESCRN,d7
  2511.  
  2512.  move.l #KeyMap,a5
  2513.  tst.b $4a(a5)
  2514.  beq .nosmallscr
  2515.  
  2516.  move.l #0,d7
  2517.  move.l #0,d6
  2518.  tst.b FULLSCR
  2519.  bne.s .attop
  2520.  move.l #40*20,d7
  2521.  move.l #40*52,d6
  2522. .attop:
  2523.  
  2524. ; move.w WIDESCRN,d0
  2525. ; move.l SCRNDRAWPT,a0
  2526. ; add.l d7,a0
  2527. ; muls #40,d0
  2528. ; add.l d0,a0
  2529. ; bsr CLRTWOLINES
  2530. ; move.w WIDESCRN,d0
  2531. ; move.l SCRNSHOWPT,a0
  2532. ; add.l d7,a0
  2533. ; muls #40,d0
  2534. ; add.l d0,a0
  2535. ; bsr CLRTWOLINES
  2536.  
  2537. ; add.w #2,WIDESCRN
  2538. ;
  2539. ; move.l SCRNDRAWPT,a0
  2540. ; add.l #232*40,a0
  2541. ; sub.l d6,a0
  2542. ; move.w WIDESCRN,d0
  2543. ; muls #40,d0
  2544. ; sub.l d0,a0
  2545. ; bsr CLRTWOLINES
  2546. ; move.l SCRNSHOWPT,a0
  2547. ; sub.l d6,a0
  2548. ; add.l #232*40,a0
  2549. ; move.w WIDESCRN,d0
  2550. ; muls #40,d0
  2551. ; sub.l d0,a0
  2552. ; bsr CLRTWOLINES
  2553.  
  2554. .nosmallscr
  2555.  
  2556.  tst.b $5e(a5)
  2557.  beq.s .nobigscr
  2558.  tst.w WIDESCRN
  2559.  ble.s .nobigscr
  2560.  
  2561.  sub.w #2,WIDESCRN
  2562.  
  2563. .nobigscr
  2564.  
  2565.  
  2566.  tst.b (a5)
  2567.  beq.s .nosavescrn
  2568.  
  2569.  not.b USEDOUG
  2570.  
  2571.  jsr SAVETHESCREEN
  2572.  
  2573. .nosavescrn:
  2574.  
  2575. ; tst.b $5b(a5)
  2576. ; beq notdoubheight
  2577. ; tst.b LASTDH
  2578. ; bne notdoubheight2
  2579. ; move.l SCRNSHOWPT,a0
  2580. ; jsr WIPEDISPLAY
  2581. ; move.l SCRNDRAWPT,a0
  2582. ; jsr WIPEDISPLAY
  2583. ; st LASTDH 
  2584. ; 
  2585. ;; move.w #0,d0
  2586. ; move.w #0,d1
  2587. ; 
  2588. ; not.b DOUBLEHEIGHT
  2589. ; beq.s singlepixheight
  2590. ; move.w #-40,d0
  2591. ; move.w #40,d1
  2592. ; 
  2593. ;singlepixheight:
  2594. ;
  2595. ; move.l #SCRMODULOS,a0
  2596. ; move.w #115,d2
  2597. ;putinmode:
  2598. ; move.w d0,6(a0)
  2599. ; move.w d0,6+4(a0)
  2600. ; move.w d1,6+16(a0)
  2601. ; move.w d1,6+16+4(a0)
  2602. ; add.w #32,a0
  2603. ; dbra d2,putinmode
  2604. ;
  2605. ; bra notdoubheight2
  2606. ; 
  2607. ;notdoubheight:
  2608. ; clr.b LASTDH
  2609. ;notdoubheight2
  2610.  
  2611. ; tst.b $5a(a5)
  2612. ; beq.s notdoubwidth
  2613. ; tst.b LASTDW
  2614. ; bne notdoubwidth2
  2615. ; move.l SCRNSHOWPT,a0
  2616. ; jsr WIPEDISPLAY
  2617. ; move.l SCRNDRAWPT,a0
  2618. ; jsr WIPEDISPLAY
  2619. ; st LASTDW
  2620. ; not.b DOUBLEWIDTH
  2621. ; bra.s notdoubwidth2
  2622. ; 
  2623. ;notdoubwidth:
  2624. ; clr.b LASTDW
  2625. ;notdoubwidth2:
  2626. ; 
  2627. ***************************************** 
  2628.  move.l PLR2_Roompt,a0
  2629.  move.l #WorkSpace,a1
  2630.  clr.l (a1)
  2631.  clr.l 4(a1)
  2632.  clr.l 8(a1)
  2633.  clr.l 12(a1)
  2634.  clr.l 16(a1)
  2635.  clr.l 20(a1)
  2636.  clr.l 24(a1)
  2637.  clr.l 28(a1)
  2638.  
  2639.  cmp.b #'n',mors
  2640.  beq.s plr1only
  2641.  
  2642.  lea ToListOfGraph(a0),a0
  2643. .doallrooms:
  2644.  move.w (a0),d0
  2645.  blt.s .allroomsdone
  2646.  addq #8,a0
  2647.  move.w d0,d1
  2648.  asr.w #3,d0
  2649.  bset d1,(a1,d0.w)
  2650.  bra .doallrooms
  2651. .allroomsdone:
  2652.  
  2653. plr1only:
  2654.  
  2655.  move.l PLR1_Roompt,a0
  2656.  lea ToListOfGraph(a0),a0
  2657. .doallrooms2:
  2658.  move.w (a0),d0
  2659.  blt.s .allroomsdone2
  2660.  addq #8,a0
  2661.  move.w d0,d1
  2662.  asr.w #3,d0
  2663.  bset d1,(a1,d0.w)
  2664.  bra .doallrooms2
  2665. .allroomsdone2:
  2666.  
  2667.  move.l #%000001,d7
  2668.  lea TEAMWORK,a2
  2669.  move.l ObjectData,a0
  2670.  sub.w #64,a0
  2671. .doallobs:
  2672.  add.w #64,a0
  2673.  move.w (a0),d0
  2674.  blt.s .allobsdone
  2675.  move.w 12(a0),d0
  2676.  blt.s .doallobs
  2677.  move.w d0,d1
  2678.  asr.w #3,d0
  2679.  btst d1,(a1,d0.w)
  2680.  bne.s .worryobj
  2681.  move.b 16(a0),d0
  2682.  btst d0,d7
  2683.  beq.s .doallobs
  2684.  moveq #0,d0
  2685.  move.b teamnumber(a0),d0
  2686.  blt.s .doallobs
  2687.  asl.w #4,d0
  2688.  tst.w SEENBY(a2,d0.w)
  2689.  blt.s .doallobs
  2690. .worryobj:
  2691.  or.b #127,worry(a0)
  2692.  bra.s .doallobs
  2693. .allobsdone:
  2694.  
  2695.  
  2696.  
  2697. ; move.l #brightentab,a0
  2698. ; move.l frompt,a3
  2699. ; adda.w #(4*33)+(104*4*20),a3
  2700. ; move.w #20,d7
  2701. ; move.w #20,d6
  2702. ;horl:
  2703. ; move.w d6,d5
  2704. ; move.l a3,a1
  2705. ;vertl
  2706. ; move.w (a1),d0
  2707. ; move.w (a0,d0.w*2),(a1)
  2708. ; addq #4,a1
  2709. ; dbra d5,vertl
  2710. ; adda.w #104*4,a3
  2711. ; dbra d7,horl
  2712.  
  2713.  move.l #$dff000,a6
  2714.  
  2715. ; move.w #$300,col0(a6)
  2716.  
  2717.  move.l #KeyMap,a5
  2718.  tst.b $45(a5)
  2719.  beq.s noend
  2720.  
  2721.  cmp.b #'s',mors
  2722.  beq plr2quit 
  2723.  
  2724.  st MASTERQUITTING
  2725.  bra noend
  2726.  
  2727. plr2quit:
  2728.  st SLAVEQUITTING
  2729. noend:
  2730.  
  2731.  tst.b MASTERQUITTING
  2732.  beq.s .noquit
  2733.  tst.b SLAVEQUITTING
  2734.  beq.s .noquit
  2735.  jmp endnomusic
  2736. .noquit
  2737.  
  2738.  cmp.b #'n',mors
  2739.  bne.s noexit
  2740.  move.l PLR1_Roompt,a0
  2741.  move.w (a0),d0
  2742. ; move.w PLOPT,d1
  2743. ; move.l #ENDZONES,a0
  2744. ; cmp.w (a0,d1.w*2),d0
  2745.  
  2746.  cmp.w ENDZONE,d0
  2747.  
  2748. ; change this for quick exit, charlie
  2749. zzzz:
  2750. ; bra end
  2751.  
  2752.  bne.s noexit
  2753.  jmp end
  2754. noexit:
  2755.  
  2756. ; tst.w PLAYERONEHEALTH
  2757. ; bgt nnoend1
  2758. ; jmp end
  2759. ;nnoend1:
  2760. ; tst.w PLAYERTWOHEALTH
  2761. ; bgt nnoend2
  2762. ; jmp end
  2763. ;nnoend2:
  2764.  
  2765. ; move.l SwitchData,a0
  2766. ; tst.b 24+8(a0)
  2767. ; bne end
  2768.   
  2769. ; JSR STOPTIMER
  2770.  
  2771.  
  2772.  bra lop
  2773.  
  2774.  include "ab3:CHEESESAUCE/ab3diipatchidr.s"
  2775.  
  2776. CLRTWOLINES:
  2777.  
  2778.  moveq #0,d1
  2779.  move.w #7,d2
  2780. .ccc
  2781.  move.l d1,2(a0)
  2782.  move.l d1,6(a0)
  2783.  move.l d1,10(a0)
  2784.  move.l d1,14(a0)
  2785.  move.l d1,18(a0)
  2786.  move.l d1,22(a0)
  2787.  move.l d1,26(a0)
  2788.  move.l d1,30(a0)
  2789.  move.l d1,34(a0)
  2790.  move.l d1,2+40(a0)
  2791.  move.l d1,6+40(a0)
  2792.  move.l d1,10+40(a0)
  2793.  move.l d1,14+40(a0)
  2794.  move.l d1,18+40(a0)
  2795.  move.l d1,22+40(a0)
  2796.  move.l d1,26+40(a0)
  2797.  move.l d1,30+40(a0)
  2798.  move.l d1,34+40(a0)
  2799.  add.l #10240,a0
  2800.  dbra d2,.ccc
  2801.  rts
  2802.  
  2803.  
  2804. LASTDH: dc.b 0
  2805. LASTDW: dc.b 0
  2806. WIDESCRN: dc.w 0
  2807. TRRANS: dc.w 0
  2808. DOANYWATER: dc.w 0
  2809.  
  2810. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2811.  
  2812.  move.l #SHADINGTABLE,a4
  2813. ; add.w MAPBRIGHT,a4
  2814.  
  2815.  move.l #KeyMap,a5
  2816.  tst.b $50(a5)
  2817.  beq.s .nobrighter
  2818.  tst.w MAPBRIGHT
  2819.  beq.s .nobrighter
  2820.  
  2821.  sub.w #1,MAPBRIGHT
  2822.  
  2823. .nobrighter:
  2824.  
  2825.  tst.b $51(a5)
  2826.  beq.s .nodimmer
  2827.  cmp.w #7,MAPBRIGHT
  2828.  bge.s .nodimmer
  2829.  
  2830.  add.w #1,MAPBRIGHT
  2831.  
  2832. .nodimmer:
  2833.  
  2834.  move.l #Rotated,a1
  2835.  move.l #COMPACTMAP,a2
  2836.  move.l #BIGMAP-40,a3
  2837.  
  2838. preshow:
  2839.  add.w #40,a3
  2840.  
  2841. SHOWMAP:
  2842.  move.l (a2)+,d5
  2843.  move.l a2,d7
  2844.  cmp.l LASTZONE,d7
  2845.  bgt shownmap
  2846.  
  2847.  tst.l d5
  2848.  beq.s preshow
  2849.  
  2850.  move.w #9,d7
  2851. wallsofzone
  2852.  
  2853.  asr.l #1,d5
  2854.  bcs.s WALLSEEN
  2855.  
  2856.  asr.l #1,d5
  2857.  bcs.s WALLMAPPED
  2858.  
  2859.  asr.l #1,d5
  2860.  addq #4,a3
  2861.  bra.s DECIDEDWALL
  2862.  
  2863. WALLMAPPED:
  2864.  move.w #$b00,d4
  2865.  asr.l #1,d5
  2866.  bcc.s .notadoor
  2867.  move.w #$e00,d4
  2868. .notadoor
  2869.  
  2870.  st TRRANS
  2871.  
  2872.  bra.s DECIDEDCOLOUR
  2873.  
  2874. WALLSEEN:
  2875.  
  2876.  clr.b TRRANS
  2877.  
  2878.  move.w #255,d4
  2879.  asr.l #2,d5
  2880.  bcc.s .notadoor
  2881.  move.w #254,d4
  2882. .notadoor
  2883. DECIDEDCOLOUR:
  2884.  move.w (a3)+,d6
  2885.  move.l (a1,d6.w*8),d0
  2886.  asr.l #7,d0
  2887.  add.w mapxoff,d0
  2888.  move.w 6(a1,d6.w*8),d1
  2889.  add.w mapzoff,d1
  2890.  move.w (a3)+,d6
  2891.  move.l (a1,d6.w*8),d2
  2892.  asr.l #7,d2
  2893.  add.w mapxoff,d2
  2894.  move.w 6(a1,d6.w*8),d3
  2895.  add.w mapzoff,d3
  2896.  
  2897.  neg.w d1
  2898.  neg.w d3
  2899.  
  2900.  movem.l d7/d5,-(a7)
  2901.  bsr CLIPANDDRAW
  2902.  movem.l (a7)+,d7/d5
  2903.  
  2904. DECIDEDWALL:
  2905.  
  2906.  dbra d7,wallsofzone
  2907.  bra SHOWMAP
  2908.  
  2909. shownmap:
  2910.  
  2911.  clr.b TRRANS
  2912.  
  2913.  move.w mapxoff,d0
  2914.  move.w mapzoff,d1
  2915.  neg.w d1
  2916.  move.w d0,d2
  2917.  move.w d1,d3
  2918.  sub.w #128,d1
  2919.  add.w #128,d3
  2920.  move.w #250,d4
  2921.  bsr CLIPANDDRAW
  2922.  
  2923.  move.w mapxoff,d0
  2924.  move.w mapzoff,d1
  2925.  neg.w d1
  2926.  move.w d0,d2
  2927.  move.w d1,d3
  2928.  sub.w #128,d1
  2929.  sub.w #32,d3
  2930.  sub.w #64,d2
  2931.  move.w #250,d4
  2932.  bsr CLIPANDDRAW
  2933.  
  2934.  move.w mapxoff,d0
  2935.  move.w mapzoff,d1
  2936.  neg.w d1
  2937.  move.w d0,d2
  2938.  move.w d1,d3
  2939.  sub.w #128,d1
  2940.  sub.w #32,d3
  2941.  add.w #64,d2
  2942.  move.w #250,d4
  2943.  bsr CLIPANDDRAW
  2944.  rts
  2945.  
  2946.  
  2947. CLIPANDDRAW:
  2948.  
  2949.  tst.b FULLSCR
  2950.  beq.s .nodov
  2951.  
  2952.  add.w d0,d0
  2953.  add.w d2,d2
  2954.  ext.l d0
  2955.  ext.l d2
  2956.  divs #3,d0
  2957.  divs #3,d2
  2958.  
  2959. .nodov:
  2960.  
  2961.  move.w MAPBRIGHT,d5
  2962.  asr.w d5,d0
  2963.  asr.w d5,d1
  2964.  asr.w d5,d2
  2965.  asr.w d5,d3
  2966.  
  2967. NOSCALING:
  2968.  add.w #96,d0
  2969.  bge p1xpos
  2970.  
  2971.  add.w #96,d2
  2972.  blt OFFSCREEN
  2973.  
  2974. x1nx2p:
  2975.  
  2976.  move.w d3,d5
  2977.  sub.w d1,d5
  2978.  move.w d2,d6
  2979.  sub.w d0,d6
  2980.  beq OFFSCREEN
  2981.  
  2982.  muls d0,d5
  2983.  divs d6,d5
  2984.  sub.w d5,d1
  2985.  move.w #0,d0
  2986.  
  2987.  bra doneleftclip
  2988.  
  2989. p1xpos:
  2990.  
  2991.  add.w #96,d2
  2992.  bge doneleftclip
  2993.  
  2994.  move.w d1,d5
  2995.  sub.w d3,d5
  2996.  move.w d0,d6
  2997.  sub.w d2,d6
  2998.  beq OFFSCREEN
  2999.  
  3000.  muls d2,d5
  3001.  divs d6,d5
  3002.  sub.w d5,d3
  3003.  move.w #0,d2
  3004.  
  3005. doneleftclip:
  3006.  
  3007.  cmp.w #191,d0
  3008.  ble p1xneg
  3009.  
  3010.  cmp.w #191,d2
  3011.  bgt OFFSCREEN
  3012.  
  3013.  move.w d0,d6
  3014.  sub.w d2,d6
  3015.  beq OFFSCREEN
  3016.  sub.w #191,d0
  3017.  move.w d3,d5
  3018.  sub.w d1,d5
  3019.  
  3020.  muls d5,d0
  3021.  divs d6,d0
  3022.  add.w d0,d1
  3023.  move.w #191,d0
  3024.  
  3025.  bra donerightclip
  3026.  
  3027. p1xneg:
  3028.  
  3029.  cmp.w #191,d2
  3030.  ble donerightclip
  3031.  
  3032.  move.w d2,d6
  3033.  sub.w d0,d6
  3034.  beq OFFSCREEN
  3035.  sub.w #191,d2
  3036.  move.w d1,d5
  3037.  sub.w d3,d5
  3038.  
  3039.  muls d5,d2
  3040.  divs d6,d2
  3041.  add.w d2,d3
  3042.  move.w #191,d2
  3043.  
  3044. donerightclip:
  3045.  
  3046. *********************************
  3047.  
  3048.  add.w #80,d1
  3049.  bge p1ypos
  3050.  
  3051.  add.w #80,d3
  3052.  blt OFFSCREEN
  3053.  
  3054.  move.w d2,d5
  3055.  sub.w d0,d5
  3056.  move.w d3,d6
  3057.  sub.w d1,d6
  3058.  beq OFFSCREEN
  3059.  
  3060.  muls d1,d5
  3061.  divs d6,d5
  3062.  sub.w d5,d0
  3063.  move.w #0,d1
  3064.  
  3065.  bra donetopclip
  3066.  
  3067. p1ypos:
  3068.  
  3069.  add.w #80,d3
  3070.  bge donetopclip
  3071.  
  3072.  move.w d0,d5
  3073.  sub.w d2,d5
  3074.  move.w d1,d6
  3075.  sub.w d3,d6
  3076.  beq OFFSCREEN
  3077.  
  3078.  muls d3,d5
  3079.  divs d6,d5
  3080.  sub.w d5,d2
  3081.  move.w #0,d3
  3082.  
  3083. donetopclip:
  3084.  
  3085.  cmp.w #159,d1
  3086.  ble p1yneg
  3087.  
  3088.  cmp.w #159,d3
  3089.  bgt OFFSCREEN
  3090.  
  3091.  move.w d1,d6
  3092.  sub.w d3,d6
  3093.  beq OFFSCREEN
  3094.  sub.w #159,d1
  3095.  move.w d2,d5
  3096.  sub.w d0,d5
  3097.  
  3098.  muls d5,d1
  3099.  divs d6,d1
  3100.  add.w d1,d0
  3101.  move.w #159,d1
  3102.  
  3103.  bra donebotclip
  3104.  
  3105. p1yneg:
  3106.  
  3107.  cmp.w #159,d3
  3108.  ble donebotclip
  3109.  
  3110.  move.w d3,d6
  3111.  sub.w d1,d6
  3112.  beq OFFSCREEN
  3113.  sub.w #159,d3
  3114.  move.w d0,d5
  3115.  sub.w d2,d5
  3116.  
  3117.  muls d5,d3
  3118.  divs d6,d3
  3119.  add.w d3,d2
  3120.  move.w #159,d3
  3121.  
  3122. donebotclip:
  3123.  
  3124.  tst.b TRRANS
  3125.  bne DRAWAtransLINE
  3126.  bra DRAWAMAPLINE
  3127.  
  3128. OFFSCREEN:
  3129. NOLINEtrans:
  3130.  rts
  3131.  
  3132. MAPBRIGHT:
  3133.  dc.w 3
  3134. mapxoff: dc.w 0
  3135. mapzoff: dc.w 0
  3136.  
  3137. DRAWAtransLINE:
  3138.  
  3139.  move.l FASTBUFFER,a0    ; screen to render to.
  3140.  
  3141.  tst.b FULLSCR
  3142.  beq.s .nooffset
  3143.   
  3144.  add.l #(320*40)+(48*2),a0
  3145.   
  3146. .nooffset:
  3147.  
  3148.  cmp.w d1,d3
  3149.  bgt.s .okdown
  3150.  bne.s .aline
  3151.  cmp.w d0,d2
  3152.  beq.s NOLINEtrans 
  3153. .aline
  3154.  exg d0,d2
  3155.  exg d1,d3
  3156. .okdown
  3157.  
  3158.  move.w d1,d5
  3159.  muls #320,d5
  3160.  add.l d5,a0
  3161.  lea (a0,d0.w*2),a0
  3162.  
  3163.  sub.w d1,d3
  3164.  
  3165.  sub.w d0,d2
  3166.  bge.s downrighttrans
  3167.  
  3168. downlefttrans:
  3169.  neg.w d2
  3170.  cmp.w d2,d3
  3171.  bgt.s downmorelefttrans
  3172.  
  3173. downleftmoretrans:
  3174.  move.w #320,d6
  3175.  move.w d2,d0
  3176.  move.w d2,d7
  3177.  
  3178. .linelop:
  3179.  move.b (a0),d4
  3180.  move.b (a4,d4.w*2),(a0)
  3181.  subq #1,a0
  3182.  sub.w d3,d0
  3183.  bgt.s .noextra
  3184.  add.w d2,d0
  3185.  add.w d6,a0
  3186. .noextra:
  3187.  dbra d7,.linelop
  3188.  rts
  3189.  
  3190. downmorelefttrans:
  3191.  move.w #320,d6
  3192.  move.w d3,d0
  3193.  move.w d3,d7
  3194.  
  3195. .linelop:
  3196.  move.b (a0),d4
  3197.  move.b (a4,d4.w*2),(a0)
  3198.  add.w d6,a0
  3199.  sub.w d2,d0
  3200.  bgt.s .noextra
  3201.  add.w d3,d0
  3202.  subq #1,a0
  3203. .noextra:
  3204.  dbra d7,.linelop
  3205.  
  3206.  rts
  3207.  
  3208. downrighttrans:
  3209.  
  3210.  cmp.w d2,d3
  3211.  bgt.s downmorerighttrans
  3212.  
  3213. downrightmoretrans:
  3214.  move.w #320,d6
  3215.  move.w d2,d0
  3216.  move.w d2,d7
  3217.  
  3218. .linelop:
  3219.  move.b (a0),d4
  3220.  move.b (a4,d4.w*2),(a0)+
  3221.  sub.w d3,d0
  3222.  bgt.s .noextra
  3223.  add.w d2,d0
  3224.  add.w d6,a0
  3225. .noextra:
  3226.  dbra d7,.linelop
  3227.  
  3228.  rts
  3229.  
  3230. downmorerighttrans:
  3231.  move.w #320,d6
  3232.  move.w d3,d0
  3233.  move.w d3,d7
  3234.  
  3235. .linelop:
  3236.  move.b (a0),d4
  3237.  move.b (a4,d4.w*2),(a0)
  3238.  add.w d6,a0
  3239.  sub.w d2,d0
  3240.  bgt.s .noextra
  3241.  add.w d3,d0
  3242.  addq #1,a0
  3243. .noextra:
  3244.  dbra d7,.linelop
  3245.  
  3246.  rts
  3247.  
  3248. NOLINE:
  3249.  rts
  3250.  
  3251. DRAWAMAPLINE:
  3252.  
  3253.  
  3254.  move.l FASTBUFFER,a0    ; screen to render to.
  3255.  cmp.w d1,d3
  3256.  bgt.s .okdown
  3257.  bne.s .aline
  3258.  cmp.w d0,d2
  3259.  beq.s NOLINE 
  3260. .aline
  3261.  exg d0,d2
  3262.  exg d1,d3
  3263. .okdown
  3264.  
  3265.  move.w d1,d5
  3266.  muls #320,d5
  3267.  add.l d5,a0
  3268.  lea (a0,d0.w),a0
  3269.  
  3270.  sub.w d1,d3
  3271.  
  3272.  sub.w d0,d2
  3273.  bge.s downright
  3274.  
  3275. downleft:
  3276.  neg.w d2
  3277.  cmp.w d2,d3
  3278.  bgt.s downmoreleft
  3279.  
  3280. downleftmore:
  3281.  move.w #320,d6
  3282.  move.w d2,d0
  3283.  move.w d2,d7
  3284.  addq #1,a0
  3285.  
  3286. .linelop:
  3287.  move.b d4,-(a0)
  3288.  sub.w d3,d0
  3289.  bgt.s .noextra
  3290.  add.w d2,d0
  3291.  add.w d6,a0
  3292. .noextra:
  3293.  dbra d7,.linelop
  3294.  rts
  3295.  
  3296. downmoreleft:
  3297.  move.w #320,d6
  3298.  move.w d3,d0
  3299.  move.w d3,d7
  3300.  
  3301. .linelop:
  3302.  move.b d4,(a0)
  3303.  add.w d6,a0
  3304.  sub.w d2,d0
  3305.  bgt.s .noextra
  3306.  add.w d3,d0
  3307.  subq #1,a0
  3308. .noextra:
  3309.  dbra d7,.linelop
  3310.  
  3311.  rts
  3312.  
  3313. downright:
  3314.  
  3315.  cmp.w d2,d3
  3316.  bgt.s downmoreright
  3317.  
  3318. downrightmore:
  3319.  move.w #320,d6
  3320.  move.w d2,d0
  3321.  move.w d2,d7
  3322.  
  3323. .linelop:
  3324.  move.b d4,(a0)+
  3325.  sub.w d3,d0
  3326.  bgt.s .noextra
  3327.  add.w d2,d0
  3328.  add.w d6,a0
  3329. .noextra:
  3330.  dbra d7,.linelop
  3331.  
  3332.  rts
  3333.  
  3334. downmoreright:
  3335.  move.w #320,d6
  3336.  move.w d3,d0
  3337.  move.w d3,d7
  3338.  
  3339. .linelop:
  3340.  move.b d4,(a0)
  3341.  add.w d6,a0
  3342.  sub.w d2,d0
  3343.  bgt.s .noextra
  3344.  add.w d3,d0
  3345.  addq #1,a0
  3346. .noextra:
  3347.  dbra d7,.linelop
  3348.  
  3349.  rts
  3350.  
  3351. SAVETHESCREEN:
  3352.  
  3353.  move.l old,$dff080
  3354.  move.w #$8020,$dff000+intena
  3355.  
  3356.  move.l _IntuitionBase,a6
  3357.  jsr _LVORethinkDisplay(a6)
  3358.  
  3359.  move.l doslib,a6
  3360.  move.l #SAVENAME,d1
  3361.  move.l #1006,d2
  3362.  jsr -30(a6)
  3363.  move.l d0,handle
  3364.  
  3365.  move.l doslib,a6
  3366.  move.l #mt_init,d2
  3367.  move.l handle,d1
  3368.  move.l #10240*8,d3
  3369.  jsr _LVOWrite(a6)
  3370.  
  3371.  move.l doslib,a6
  3372.  move.l handle,d1
  3373.  jsr -36(a6)
  3374.  
  3375.  move.l doslib,a6
  3376.  move.l #200,d1
  3377.  jsr -198(a6) 
  3378.  
  3379.  move.w #$0020,$dff000+intena
  3380.  move.l #bigfield,$dff080
  3381.  
  3382.  add.b #1,SAVELETTER
  3383.  
  3384.  rts
  3385.  
  3386. SAVENAME: dc.b 'work:rawscrn'
  3387. SAVELETTER: dc.b 'd',0
  3388.  
  3389.  even
  3390.  
  3391.  include "ab3:CHEESESAUCE/CHUNKY.s"
  3392.  
  3393.  
  3394. MASTERQUITTING: dc.b 0
  3395. SLAVEQUITTING: dc.b 0
  3396. MASTERPAUSE: dc.b 0
  3397. SLAVEPAUSE: dc.b 0
  3398.  
  3399. PAUSEOPTS:
  3400.  include "ab3:CHEESESAUCE/pauseopts"
  3401.  
  3402. ENDZONE: dc.w 0
  3403.  
  3404. ENDZONES:
  3405. ; LEVEL 1
  3406.  dc.w -1
  3407. ; dc.w 55
  3408. ; LEVEL 2
  3409.  dc.w 149
  3410. ; LEVEL 3
  3411.  dc.w 155
  3412. ; LEVEL 4
  3413.  dc.w 107
  3414. ; LEVEL 5
  3415.  dc.w 67
  3416. ; LEVEL 6
  3417.  dc.w 132
  3418. ; LEVEL 7
  3419.  dc.w 203
  3420. ; LEVEL 8
  3421.  dc.w 166
  3422. ; LEVEL 9
  3423.  dc.w 118
  3424. ; LEVEL 10
  3425.  dc.w 102
  3426. ; LEVEL 11
  3427.  dc.w 103
  3428. ; LEVEL 12
  3429.  dc.w 2
  3430. ; LEVEL 13
  3431.  dc.w 98
  3432. ; LEVEL 14
  3433.  dc.w 0
  3434. ; LEVEL 15
  3435.  dc.w 148
  3436. ; LEVEL 16
  3437.  dc.w 103
  3438.  
  3439. ***************************************************************************
  3440. ***************************************************************************
  3441. ****************** End of Main Loop here ********************************** 
  3442. ***************************************************************************
  3443. ***************************************************************************
  3444.  
  3445. putinsmallscr:
  3446.  move.l #$1fe0000,statskip
  3447.  move.l #$1fe0000,statskip+4
  3448.  
  3449.  move.l #healthpal,a5
  3450.  move.l COPSCRN1,a0
  3451.  move.l COPSCRN2,a2
  3452.  move.w #scrheight-1,d0
  3453.  move.l #0,d6
  3454.  move.w #0,d3
  3455.  move.w #$2bdf,startwait
  3456.  move.w #$2d01,endwait
  3457. .fillcop
  3458.  move.w #$180,d1
  3459.  
  3460.  move.l a0,a1
  3461.  move.l a2,a3
  3462.  move.w #$10c,(a1)+
  3463.  move.w #$10c,(a3)+
  3464.  move.w d3,(a1)+
  3465.  move.w d3,(a3)+
  3466.  eor.w #$8000,d3
  3467.  
  3468.  move.w #$106,(a1)+
  3469.  move.w #$106,(a3)+
  3470.  move.w #$2c42,d5
  3471.  or.w d3,d5
  3472.  and.w #$fffe,d5
  3473.  move.w d5,(a1)+
  3474.  move.w d5,(a3)+
  3475.  bsr do32
  3476.  
  3477.  move.w #$106,(a1)+
  3478.  move.w #$106,(a3)+
  3479.  move.w #$4c42,d5
  3480.  or.w d3,d5
  3481.  and.w #$fffe,d5
  3482.  move.w d5,(a1)+
  3483.  move.w d5,(a3)+
  3484.  bsr do32
  3485.  
  3486.  move.w #$106,(a1)+
  3487.  move.w #$106,(a3)+
  3488.  move.w #$6c42,d5
  3489.  or.w d3,d5
  3490.  and.w #$fffe,d5
  3491.  move.w d5,(a1)+
  3492.  move.w d5,(a3)+
  3493.  bsr do32
  3494.  
  3495.  
  3496.  move.l #$1060c42,(a1)+
  3497.  move.l #$1060c42,(a3)+
  3498.  move.w #$19e,(a1)+
  3499.  move.w (a5),(a1)+
  3500.  move.w #$19e,(a3)+
  3501.  move.w (a5)+,(a3)+
  3502.  
  3503. **********************************
  3504.  
  3505.  adda.w #104*4,a0
  3506.  adda.w #104*4,a2
  3507.  dbra d0,.fillcop
  3508.  
  3509.  move.w #$48,fetchstart
  3510.  move.w #$88,fetchstop
  3511.  move.w #$2cb1,winstart
  3512.  move.w #$2c91,winstop
  3513.  move.w #-24,modulo
  3514.  move.w #-24,modulo+4
  3515.  
  3516.  move.l #nullspr,d0
  3517.  move.w d0,s4l
  3518.  move.w d0,s5l
  3519.  move.w d0,s6l
  3520.  move.w d0,s7l
  3521.  move.w d0,s0l
  3522.  move.w d0,s1l
  3523.  move.w d0,s2l
  3524.  move.w d0,s3l
  3525.  swap d0
  3526.  move.w d0,s4h
  3527.  move.w d0,s5h
  3528.  move.w d0,s6h
  3529.  move.w d0,s7h 
  3530.  move.w d0,s0h
  3531.  move.w d0,s1h
  3532.  move.w d0,s2h
  3533.  move.w d0,s3h 
  3534.  
  3535. ; move.l #borders,d0
  3536. ; move.w d0,s0l
  3537. ; swap d0
  3538. ; move.w d0,s0h
  3539. ; move.l #borders+2592,d0
  3540. ; move.w d0,s1l
  3541. ; swap d0
  3542. ; move.w d0,s1h
  3543. ; move.l #borders+2592*2,d0
  3544. ; move.w d0,s2l
  3545. ; swap d0
  3546. ; move.w d0,s2h
  3547. ; move.l #borders+2592*3,d0
  3548. ; move.w d0,s3l
  3549. ; swap d0
  3550. ; move.w d0,s3h
  3551.  
  3552.  
  3553.  move.l #scrn+40,a0
  3554.  move.l #scrn+160,a1
  3555.  move.l #scrn+280,a2
  3556.  move.l #smallscrntab,a3
  3557.  move.w #191,d7    ; counter
  3558.  move.w #0,d1    ; xpos
  3559. .plotscrnloop:
  3560.  move.b (a3)+,d0
  3561.  move.w d1,d2
  3562.  asr.w #3,d2
  3563.  move.b d1,d3
  3564.  not.b d3
  3565.  bclr.b d3,-40(a0,d2.w)
  3566.  bclr.b d3,(a0,d2.w)
  3567.  bclr.b d3,40(a0,d2.w)
  3568.  bclr.b d3,-40(a1,d2.w)
  3569.  bclr.b d3,(a1,d2.w)
  3570.  bclr.b d3,40(a1,d2.w)
  3571.  bclr.b d3,-40(a2,d2.w)
  3572.  btst #0,d0
  3573.  beq.s .nobp1
  3574.  bset.b d3,-40(a0,d2.w)
  3575. .nobp1:
  3576.  btst #1,d0
  3577.  beq.s .nobp2
  3578.  bset.b d3,(a0,d2.w)
  3579. .nobp2:
  3580.  btst #2,d0
  3581.  beq.s .nobp3
  3582.  bset.b d3,40(a0,d2.w)
  3583. .nobp3:
  3584.  btst #3,d0
  3585.  beq.s .nobp4
  3586.  bset.b d3,-40(a1,d2.w)
  3587. .nobp4:
  3588.  btst #4,d0
  3589.  beq.s .nobp5
  3590.  bset.b d3,(a1,d2.w)
  3591. .nobp5:
  3592.  btst #5,d0
  3593.  beq.s .nobp6
  3594.  bset.b d3,40(a1,d2.w)
  3595. .nobp6:
  3596.  btst #6,d0
  3597.  beq.s .nobp7
  3598.  bset.b d3,-40(a2,d2.w)
  3599. .nobp7:
  3600.  
  3601.  addq #1,d1
  3602.  
  3603.  dbra d7,.plotscrnloop
  3604.  
  3605.  
  3606.  rts
  3607.  
  3608. putinlargescr:
  3609.  
  3610.  move.l #$1000000,statskip
  3611.  move.l #$fffffffe,statskip+4
  3612.  
  3613.  move.l #healthpal,a5
  3614. ; move.l COPSCRN1,a0
  3615. ; move.l COPSCRN2,a2
  3616.  move.w #scrheight-1,d0
  3617.  move.l #0,d6
  3618.  move.w #0,d3
  3619.  move.w #$29df,startwait
  3620.  move.w #$2b01,endwait
  3621. .fillcop
  3622.  move.w #$180,d1
  3623.  
  3624.  move.l a0,a1
  3625.  move.l a2,a3
  3626.  move.w #$10c,(a1)+
  3627.  move.w #$10c,(a3)+
  3628.  move.w d3,(a1)+
  3629.  move.w d3,(a3)+
  3630.  eor.w #$8000,d3
  3631.  
  3632.  move.w #$106,(a1)+
  3633.  move.w #$106,(a3)+
  3634.  move.w #$2c42,d5
  3635.  or.w d3,d5
  3636.  and.w #$fffe,d5
  3637.  move.w d5,(a1)+
  3638.  move.w d5,(a3)+
  3639.  bsr do32
  3640.  
  3641.  move.w #$106,(a1)+
  3642.  move.w #$106,(a3)+
  3643.  move.w #$4c42,d5
  3644.  or.w d3,d5
  3645.  and.w #$fffe,d5
  3646.  move.w d5,(a1)+
  3647.  move.w d5,(a3)+
  3648.  bsr do32
  3649.  
  3650.  move.w #$106,(a1)+
  3651.  move.w #$106,(a3)+
  3652.  move.w #$6c42,d5
  3653.  or.w d3,d5
  3654.  and.w #$fffe,d5
  3655.  move.w d5,(a1)+
  3656.  move.w d5,(a3)+
  3657.  bsr do32
  3658.  
  3659.  move.w startwait,(a1)+
  3660.  move.w #$fffe,(a1)+
  3661.  move.w endwait,(a1)+
  3662.  move.w #$ff00,(a1)+
  3663.  move.w startwait,(a3)+
  3664.  move.w #$fffe,(a3)+
  3665.  move.w endwait,(a3)+
  3666.  move.w #$ff00,(a3)+
  3667.  
  3668. ; move.l $1fe0000,(a1)+
  3669. ; move.l $1fe0000,(a3)+
  3670. ; move.l $1fe0000,(a1)+
  3671. ; move.l $1fe0000,(a3)+
  3672.  
  3673.  
  3674.  add.w #$300,startwait
  3675.  add.w #$300,endwait
  3676.  
  3677. ; move.l #$1060c42,(a1)+
  3678. ; move.l #$1060c42,(a3)+
  3679. ; move.w #$19e,(a1)+
  3680. ; move.w (a5),(a1)+
  3681. ; move.w #$19e,(a3)+
  3682. ; move.w (a5)+,(a3)+
  3683.  
  3684. **********************************
  3685.  
  3686.  adda.w #104*4,a0
  3687.  adda.w #104*4,a2
  3688.  dbra d0,.fillcop
  3689.  
  3690.  move.w #$38,fetchstart
  3691.  move.w #$b8,fetchstop
  3692.  move.w #$2c81,winstart
  3693.  move.w #$2cc1,winstop
  3694.  move.w #-40,modulo
  3695.  move.w #-40,modulo+4
  3696.  
  3697.  move.l #nullspr,d0
  3698.  move.w d0,s0l
  3699.  move.w d0,s1l
  3700.  move.w d0,s2l
  3701.  move.w d0,s3l
  3702.  move.w d0,s4l
  3703.  move.w d0,s5l
  3704.  move.w d0,s6l
  3705.  move.w d0,s7l
  3706.  swap d0
  3707.  move.w d0,s0h
  3708.  move.w d0,s1h
  3709.  move.w d0,s2h
  3710.  move.w d0,s3h
  3711.  move.w d0,s4h
  3712.  move.w d0,s5h
  3713.  move.w d0,s6h
  3714.  move.w d0,s7h 
  3715.  
  3716.  move.l scrn,a0
  3717.  move.l a0,a1
  3718.  move.l a0,a2
  3719.  add.l #40,a0
  3720.  add.l #160,a1
  3721.  add.l #280,a2
  3722.  move.l #scrntab,a3
  3723.  move.w #319,d7    ; counter
  3724.  move.w #0,d1    ; xpos
  3725. .plotscrnloop:
  3726.  move.b (a3)+,d0
  3727.  move.w d1,d2
  3728.  asr.w #3,d2
  3729.  move.b d1,d3
  3730.  not.b d3
  3731.  bclr.b d3,-40(a0,d2.w)
  3732.  bclr.b d3,(a0,d2.w)
  3733.  bclr.b d3,40(a0,d2.w)
  3734.  bclr.b d3,-40(a1,d2.w)
  3735.  bclr.b d3,(a1,d2.w)
  3736.  bclr.b d3,40(a1,d2.w)
  3737.  bclr.b d3,-40(a2,d2.w)
  3738.  btst #0,d0
  3739.  beq.s .nobp1
  3740.  bset.b d3,-40(a0,d2.w)
  3741. .nobp1:
  3742.  btst #1,d0
  3743.  beq.s .nobp2
  3744.  bset.b d3,(a0,d2.w)
  3745. .nobp2:
  3746.  btst #2,d0
  3747.  beq.s .nobp3
  3748.  bset.b d3,40(a0,d2.w)
  3749. .nobp3:
  3750.  btst #3,d0
  3751.  beq.s .nobp4
  3752.  bset.b d3,-40(a1,d2.w)
  3753. .nobp4:
  3754.  btst #4,d0
  3755.  beq.s .nobp5
  3756.  bset.b d3,(a1,d2.w)
  3757. .nobp5:
  3758.  btst #5,d0
  3759.  beq.s .nobp6
  3760.  bset.b d3,40(a1,d2.w)
  3761. .nobp6:
  3762.  btst #6,d0
  3763.  beq.s .nobp7
  3764.  bset.b d3,-40(a2,d2.w)
  3765. .nobp7:
  3766.  
  3767.  addq #1,d1
  3768.  
  3769.  dbra d7,.plotscrnloop
  3770.  
  3771.  rts
  3772.  
  3773. CLEARKEYBOARD:
  3774.  move.l #KeyMap,a5
  3775.  moveq #0,d0
  3776.  move.w #15,d1
  3777. clrloo:
  3778.  move.l d0,(a5)+
  3779.  move.l d0,(a5)+
  3780.  move.l d0,(a5)+
  3781.  move.l d0,(a5)+
  3782.  dbra d1,clrloo
  3783.  rts
  3784.  
  3785. READCONTROLS: dc.w 0
  3786.  
  3787. tstststst: dc.w 0
  3788.  
  3789. BollocksRoom:
  3790.  dc.w -1
  3791.  ds.l 50
  3792.  
  3793. GUNYOFFS:
  3794.  dc.w 20
  3795.  dc.w 20
  3796.  dc.w 0
  3797.  dc.w 20
  3798.  dc.w 20
  3799.  dc.w 0
  3800.  dc.w 0
  3801.  dc.w 20
  3802.  
  3803. PLR1_BOBBLEY: dc.l 0
  3804. PLR2_BOBBLEY: dc.l 0
  3805.  
  3806. USEPLR1:
  3807.  
  3808. ***********************************
  3809.  
  3810.  move.l PLR1_Obj,a0 
  3811.  move.b #4,16(a0)
  3812.  move.l ObjectPoints,a1
  3813.  move.l #ObjRotated,a2
  3814.  move.w (a0),d0
  3815.  move.l PLR1_xoff,(a1,d0.w*8)
  3816.  move.l PLR1_zoff,4(a1,d0.w*8)
  3817.  move.l PLR1_Roompt,a1
  3818.  
  3819.  moveq #0,d2
  3820.  move.b damagetaken(a0),d2
  3821.  beq .notbeenshot
  3822.  moveq #0,d4
  3823.  
  3824.  move.w ImpactX(a0),d3
  3825.  beq.s .notwist
  3826.  move.w d2,d4
  3827. .notwist:
  3828.  add.w d3,PLR1s_xspdval
  3829.  move.w ImpactZ(a0),d3
  3830.  beq.s .notwist2
  3831.  move.w d2,d4
  3832. .notwist2:
  3833.  add.w d3,PLR1s_zspdval
  3834.  move.w ImpactY(a0),d3
  3835.  ext.l d3
  3836.  asl.l #8,d3
  3837.  add.l d3,PLR1s_yvel
  3838.  
  3839.  move.w #0,ImpactX(a0)
  3840.  move.w #0,ImpactY(a0)
  3841.  move.w #0,ImpactZ(a0)
  3842.  
  3843.  jsr GetRand
  3844.  muls d4,d0
  3845.  asr.l #8,d0
  3846.  asr.l #4,d0
  3847.  add.w d0,PLR1s_angspd
  3848.  
  3849.  move.w #$f00,hitcol
  3850.  move.w #$f00,hitcol2
  3851.  
  3852.  tst.w PLAYERONEHEALTH
  3853.  ble.s .notbeenshot
  3854.  
  3855.  sub.w d2,PLAYERONEHEALTH
  3856.  movem.l d0-d7/a0-a6,-(a7)
  3857.  move.b #$fb,IDNUM
  3858.  move.w #19,Samplenum
  3859.  clr.b notifplaying
  3860.  move.w #0,Noisex
  3861.  move.w #0,Noisez
  3862.  move.w #100,Noisevol
  3863.  jsr MakeSomeNoise
  3864.  
  3865.  movem.l (a7)+,d0-d7/a0-a6
  3866.  
  3867. .notbeenshot
  3868.  move.b #0,damagetaken(a0)
  3869.  move.b #10,numlives(a0)
  3870.  
  3871.  move.w p1_angpos,Facing(a0)
  3872.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3873.  
  3874.  move.w (a1),12(a0)
  3875.  move.w (a1),d2
  3876.  move.l #ZoneBrightTable,a1
  3877.  move.l (a1,d2.w*4),d2
  3878.  tst.b PLR1_StoodInTop
  3879.  bne.s .okinbott
  3880.  swap d2
  3881. .okinbott:
  3882.  
  3883.  move.w d2,2(a0)
  3884.  
  3885.  
  3886.  move.l p1_yoff,d0
  3887.  move.l p1_height,d1
  3888.  asr.l #1,d1
  3889.  add.l d1,d0
  3890.  asr.l #7,d0
  3891.  move.w d0,4(a0)
  3892.  
  3893. ***********************************
  3894.  
  3895.  move.l PLR2_Obj,a0 
  3896.  move.b #5,16(a0)
  3897.  
  3898.  move.w p2_angpos,d0
  3899.  and.w #8190,d0
  3900.  move.w d0,Facing(a0)
  3901. ; 
  3902. ; jsr ViewpointToDraw
  3903. ; asl.w #2,d0
  3904. ; moveq #0,d1
  3905. ; move.b p2_bobble,d1
  3906. ; not.b d1
  3907. ; lsr.b #3,d1
  3908. ; and.b #$3,d1
  3909. ; add.w d1,d0
  3910. ; move.w d0,10(a0)
  3911. ; move.w #10,8(a0)
  3912. ; 
  3913.  
  3914.  move.l ObjectPoints,a1
  3915.  move.l #ObjRotated,a2
  3916.  move.w (a0),d0
  3917.  move.l PLR2_xoff,(a1,d0.w*8)
  3918.  move.l PLR2_zoff,4(a1,d0.w*8)
  3919.  move.l PLR2_Roompt,a1
  3920.  
  3921.  moveq #0,d2
  3922.  move.b damagetaken(a0),d2
  3923.  beq .notbeenshot2
  3924.  
  3925.  move.w ImpactX(a0),d3
  3926.  add.w d3,PLR2s_xspdval
  3927.  move.w ImpactZ(a0),d3
  3928.  add.w d3,PLR2s_zspdval
  3929.  move.w ImpactY(a0),d3
  3930.  ext.l d3
  3931.  asl.l #8,d3
  3932.  add.l d3,PLR2s_yvel
  3933.  
  3934.  move.w #0,ImpactX(a0)
  3935.  move.w #0,ImpactY(a0)
  3936.  move.w #0,ImpactZ(a0)
  3937.  tst.w PLAYERTWOHEALTH
  3938.  ble.s .notbeenshot2
  3939.  
  3940.  sub.w d2,PLAYERTWOHEALTH
  3941. .notbeenshot2
  3942.  move.b #0,damagetaken(a0)
  3943.  move.b #10,numlives(a0)
  3944.  
  3945.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3946.  
  3947.  move.w (a1),12(a0)
  3948.  move.w (a1),d2
  3949.  move.l #ZoneBrightTable,a1
  3950.  move.l (a1,d2.w*4),d2
  3951.  tst.b PLR2_StoodInTop
  3952.  bne.s .okinbott2
  3953.  swap d2
  3954. .okinbott2:
  3955.  
  3956.  move.w d2,2(a0)
  3957.  
  3958.  move.l p2_yoff,d0
  3959.  move.l p2_height,d1
  3960.  asr.l #1,d1
  3961.  add.l d1,d0
  3962.  asr.l #7,d0
  3963.  move.w d0,4(a0)
  3964.  
  3965.  jsr ViewpointToDraw
  3966.  add.l d0,d0
  3967.  
  3968.  move.l LINKFILE,a6
  3969.  add.l #PLR2ALIEN,a6
  3970.  move.w (a6),d7
  3971.  move.w d7,d1
  3972.  
  3973.  move.b d1,TypeOfThing(a0)
  3974.  
  3975.  move.l LINKFILE,a6
  3976.  add.l #AlienStats,a6
  3977.  muls #AlienStatLen,d1
  3978.  add.l d1,a6
  3979.  move.b A_GFXType+1(a6),VECOBJ
  3980.  cmp.w #1,A_GFXType(a6)
  3981.  bne.s .NOSIDES2
  3982.  
  3983.  moveq #0,d0
  3984.  
  3985. .NOSIDES2:
  3986.  
  3987.  move.l LINKFILE,a6
  3988.  
  3989.  add.l #AlienAnimData,a6
  3990.  
  3991.  move.w d7,d1
  3992.  muls #A_AnimLen,d1
  3993.  add.l d1,a6
  3994.  
  3995. ; move.l ANIMPOINTER,a6
  3996.  
  3997.  muls #A_OptLen,d0
  3998.  add.w d0,a6
  3999.  
  4000.  move.w SecTimer(a0),d1
  4001.  move.w d1,d2
  4002.  muls #A_FrameLen,d1
  4003.  
  4004.  addq #1,d2
  4005.  
  4006.  move.w d2,d3
  4007.  muls #A_FrameLen,d3
  4008.  tst.b (a6,d3.w)
  4009.  bge.s .noendanim
  4010.  move.w #0,d2
  4011. .noendanim
  4012.  move.w d2,SecTimer(a0)
  4013.  
  4014.  move.w d2,d1
  4015.  
  4016.  muls #A_FrameLen,d1
  4017.  
  4018.  move.l #0,8(a0)
  4019.  move.b (a6,d1.w),9(a0)
  4020.  move.b 1(a6,d1.w),d0
  4021.  ext.w d0
  4022.  bgt.s .noflip
  4023.  move.b #128,10(a0)
  4024.  neg.w d0
  4025. .noflip:
  4026.  sub.w #1,d0
  4027.  move.b d0,11(a0)
  4028.  
  4029.  move.w #-1,6(a0)
  4030.  cmp.b #1,VECOBJ
  4031.  beq.s .nosize
  4032.  bgt.s .setlight
  4033.  move.w 2(a6,d1.w),6(a0)
  4034.  bra.s .ddone
  4035.  
  4036. .nosize
  4037.  
  4038. ; move.l #$00090001,8(a0)
  4039.  
  4040.  bra.s .ddone
  4041.  
  4042. .setlight:
  4043.  move.w 2(a6,d1.w),6(a0)
  4044.  
  4045.  move.b VECOBJ,d1
  4046.  or.b d1,10(a0)
  4047.  
  4048. .ddone:
  4049.  
  4050.  
  4051. **********************************
  4052.  
  4053.  move.l PLR1_Obj,a0
  4054.  
  4055.  ifeq CHEESEY
  4056.  
  4057.  tst.w PLAYERONEHEALTH
  4058.  bgt.s .notdead
  4059.  
  4060.  move.w #-1,12+128(a0)
  4061.  rts
  4062.  
  4063. .notdead: 
  4064.  
  4065.  move.l PLR1_Roompt,a1
  4066.  
  4067.  move.w Facing(a0),d0
  4068.  add.w #4096,d0
  4069.  and.w #8190,d0
  4070.  move.w d0,Facing+128(a0)
  4071.  
  4072.  move.w (a1),12+128(a0)
  4073.  move.w (a1),GraphicRoom+128(a0)
  4074.  
  4075.  moveq #0,d0
  4076.  move.b p1_gunselected,d0
  4077.  
  4078.  move.l LINKFILE,a1
  4079.  add.l #GunObjects,a1
  4080.  move.w (a1,d0.w*2),d0
  4081.  
  4082.  move.b d0,TypeOfThing+128(a0)
  4083.  move.b #1,128+16(a0)
  4084.  
  4085.  move.w (a0),d0
  4086.  move.w 128(a0),d1
  4087.  move.l ObjectPoints,a1
  4088.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4089.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4090.  
  4091.  st WhichAnim+128(a0)
  4092.  
  4093.  move.l p1_yoff,d0
  4094.  move.l p1_height,d1
  4095.  asr.l #2,d1
  4096.  add.l #10*128,d1
  4097.  add.l d1,d0
  4098.  asr.l #7,d0
  4099.  move.w d0,4+128(a0)
  4100.  move.l PLR1_BOBBLEY,d1
  4101.  asr.l #8,d1
  4102.  move.l d1,d0
  4103.  asr.l #1,d0
  4104.  add.l d0,d1
  4105.  add.w d1,4+128(a0)
  4106.  
  4107.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4108.  
  4109.  endc
  4110.  
  4111.  ifne CHEESEY
  4112.  move.w #-1,12+128(a0)
  4113.  endc
  4114.  
  4115.  rts
  4116.  
  4117. ***************************************************
  4118. **************************************************
  4119.  
  4120. USEPLR2:
  4121.  
  4122. ***********************************
  4123.  
  4124.  move.l PLR2_Obj,a0 
  4125.  move.b #5,16(a0)
  4126.  move.l ObjectPoints,a1
  4127.  move.l #ObjRotated,a2
  4128.  move.w (a0),d0
  4129.  move.l PLR2_xoff,(a1,d0.w*8)
  4130.  move.l PLR2_zoff,4(a1,d0.w*8)
  4131.  move.l PLR2_Roompt,a1
  4132.  
  4133.  moveq #0,d2
  4134.  move.b damagetaken(a0),d2
  4135.  beq .notbeenshot
  4136.  
  4137.  moveq #0,d4
  4138.  move.w ImpactX(a0),d3
  4139.  beq.s .notwist
  4140.  move.w d2,d4
  4141. .notwist:
  4142.  add.w d3,PLR2s_xspdval
  4143.  move.w ImpactZ(a0),d3
  4144.  beq.s .notwist2
  4145.  move.w d2,d4
  4146. .notwist2:
  4147.  add.w d3,PLR2s_zspdval
  4148.  
  4149.  jsr GetRand
  4150.  muls d4,d0
  4151.  asr.l #8,d0
  4152.  asr.l #4,d0
  4153.  add.w d0,PLR2s_angspd
  4154.  
  4155.  
  4156.  move.w #$f00,hitcol
  4157.  move.w #$f00,hitcol2
  4158.  
  4159.  tst.w PLAYERTWOHEALTH
  4160.  ble.s .notbeenshot
  4161.  
  4162.  sub.w d2,PLAYERTWOHEALTH
  4163.  movem.l d0-d7/a0-a6,-(a7)
  4164.  move.w #19,Samplenum
  4165.  clr.b notifplaying
  4166.  move.b #$fb,IDNUM
  4167.  move.w #0,Noisex
  4168.  move.w #0,Noisez
  4169.  move.w #100,Noisevol
  4170.  jsr MakeSomeNoise
  4171.  
  4172.  movem.l (a7)+,d0-d7/a0-a6
  4173.  
  4174. .notbeenshot
  4175.  move.b #0,damagetaken(a0)
  4176.  move.b #10,numlives(a0)
  4177.  
  4178.  move.w p2_angpos,Facing(a0)
  4179.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4180.  
  4181.  move.w (a1),12(a0)
  4182.  move.w (a1),d2
  4183.  move.l #ZoneBrightTable,a1
  4184.  move.l (a1,d2.w*4),d2
  4185.  tst.b PLR2_StoodInTop
  4186.  bne.s .okinbott
  4187.  swap d2
  4188. .okinbott:
  4189.  
  4190.  move.w d2,2(a0)
  4191.  
  4192.  move.l PLR2_yoff,d0
  4193.  move.l p2_height,d1
  4194.  asr.l #1,d1
  4195.  add.l d1,d0
  4196.  asr.l #7,d0
  4197.  move.w d0,4(a0)
  4198.  
  4199. ***********************************
  4200.  
  4201.  move.l PLR1_Obj,a0 
  4202.  move.b #4,16(a0)
  4203.  
  4204.  move.w PLR1_angpos,d0
  4205.  and.w #8190,d0
  4206.  move.w d0,Facing(a0)
  4207. ; 
  4208. ; jsr ViewpointToDraw
  4209. ; asl.w #2,d0
  4210. ; moveq #0,d1
  4211. ; move.b p2_bobble,d1
  4212. ; not.b d1
  4213. ; lsr.b #3,d1
  4214. ; and.b #$3,d1
  4215. ; add.w d1,d0
  4216. ; move.w d0,10(a0)
  4217. ; move.w #10,8(a0)
  4218. ; 
  4219.  
  4220.  move.l ObjectPoints,a1
  4221.  move.l #ObjRotated,a2
  4222.  move.w (a0),d0
  4223.  move.l PLR1_xoff,(a1,d0.w*8)
  4224.  move.l PLR1_zoff,4(a1,d0.w*8)
  4225.  move.l PLR1_Roompt,a1
  4226.  
  4227.  moveq #0,d2
  4228.  move.b damagetaken(a0),d2
  4229.  beq .notbeenshot2
  4230.  
  4231.  move.w ImpactX(a0),d3
  4232.  add.w d3,PLR1s_xspdval
  4233.  move.w ImpactZ(a0),d3
  4234.  add.w d3,PLR1s_zspdval
  4235.  
  4236.  sub.w d2,PLAYERONEHEALTH
  4237. .notbeenshot2
  4238.  move.b #0,damagetaken(a0)
  4239.  move.b #10,numlives(a0)
  4240.  
  4241.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4242.  
  4243.  move.w (a1),12(a0)
  4244.  move.w (a1),d2
  4245.  move.l #ZoneBrightTable,a1
  4246.  move.l (a1,d2.w*4),d2
  4247.  tst.b PLR1_StoodInTop
  4248.  bne.s .okinbott2
  4249.  swap d2
  4250. .okinbott2:
  4251.  
  4252.  move.w d2,2(a0)
  4253.  
  4254.  move.l p1_yoff,d0
  4255.  move.l p1_height,d1
  4256.  asr.l #1,d1
  4257.  add.l d1,d0
  4258.  asr.l #7,d0
  4259.  move.w d0,4(a0)
  4260.  
  4261.  jsr ViewpointToDraw
  4262.  add.l d0,d0
  4263.  
  4264.  move.l LINKFILE,a6
  4265.  add.l #PLR1ALIEN,a6
  4266.  move.w (a6),d7
  4267.  move.w d7,d1
  4268.  
  4269.  move.b d1,TypeOfThing(a0)
  4270.  
  4271.  move.l LINKFILE,a6
  4272.  add.l #AlienStats,a6
  4273.  muls #AlienStatLen,d1
  4274.  add.l d1,a6
  4275.  move.b A_GFXType+1(a6),VECOBJ
  4276.  cmp.w #1,A_GFXType(a6)
  4277.  bne.s .NOSIDES2
  4278.  
  4279.  moveq #0,d0
  4280.  
  4281. .NOSIDES2:
  4282.  
  4283.  move.l LINKFILE,a6
  4284.  
  4285.  add.l #AlienAnimData,a6
  4286.  
  4287.  move.w d7,d1
  4288.  muls #A_AnimLen,d1
  4289.  add.l d1,a6
  4290.  
  4291. ; move.l ANIMPOINTER,a6
  4292.  
  4293.  muls #A_OptLen,d0
  4294.  add.w d0,a6
  4295.  
  4296.  move.w SecTimer(a0),d1
  4297.  move.w d1,d2
  4298.  muls #A_FrameLen,d1
  4299.  
  4300.  addq #1,d2
  4301.  
  4302.  move.w d2,d3
  4303.  muls #A_FrameLen,d3
  4304.  tst.b (a6,d3.w)
  4305.  bge.s .noendanim
  4306.  move.w #0,d2
  4307. .noendanim
  4308.  move.w d2,SecTimer(a0)
  4309.  
  4310.  move.w d2,d1
  4311.  
  4312.  muls #A_FrameLen,d1
  4313.  
  4314.  move.l #0,8(a0)
  4315.  move.b (a6,d1.w),9(a0)
  4316.  move.b 1(a6,d1.w),d0
  4317.  ext.w d0
  4318.  bgt.s .noflip
  4319.  move.b #128,10(a0)
  4320.  neg.w d0
  4321. .noflip:
  4322.  sub.w #1,d0
  4323.  move.b d0,11(a0)
  4324.  
  4325.  move.w #-1,6(a0)
  4326.  cmp.b #1,VECOBJ
  4327.  beq.s .nosize
  4328.  bgt.s .setlight
  4329.  move.w 2(a6,d1.w),6(a0)
  4330.  bra.s .ddone
  4331.  
  4332. .nosize
  4333.  
  4334. ; move.l #$00090001,8(a0)
  4335.  
  4336.  bra.s .ddone
  4337.  
  4338. .setlight:
  4339.  move.w 2(a6,d1.w),6(a0)
  4340.  
  4341.  move.b VECOBJ,d1
  4342.  or.b d1,10(a0)
  4343.  
  4344. .ddone:
  4345.  
  4346. **********************************
  4347.  
  4348.  move.l PLR2_Obj,a0
  4349.  
  4350.  ifeq CHEESEY
  4351.  
  4352.  tst.w PLAYERTWOHEALTH
  4353.  bgt.s .notdead
  4354.  
  4355.  move.w #-1,12+64(a0)
  4356.  rts
  4357.  
  4358. .notdead: 
  4359.  move.l PLR2_Roompt,a1
  4360.  
  4361.  move.w Facing(a0),d0
  4362.  add.w #4096,d0
  4363.  and.w #8190,d0
  4364.  move.w d0,Facing+64(a0)
  4365.  
  4366.  move.w (a1),12+64(a0)
  4367.  move.w (a1),GraphicRoom+64(a0)
  4368.  
  4369.  moveq #0,d0
  4370.  move.b p2_gunselected,d0
  4371.  
  4372.  move.l LINKFILE,a1
  4373.  add.l #GunObjects,a1
  4374.  move.w (a1,d0.w*2),d0
  4375.  
  4376.  move.b d0,TypeOfThing+64(a0)
  4377.  move.b #1,64+16(a0)
  4378.  
  4379.  move.w (a0),d0
  4380.  move.w 64(a0),d1
  4381.  move.l ObjectPoints,a1
  4382.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4383.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4384.  
  4385.  st WhichAnim+64(a0)
  4386.  
  4387.  move.l p2_yoff,d0
  4388.  move.l p2_height,d1
  4389.  asr.l #2,d1
  4390.  add.l #10*128,d1
  4391.  add.l d1,d0
  4392.  asr.l #7,d0
  4393.  move.w d0,4+64(a0)
  4394.  move.l PLR2_BOBBLEY,d1
  4395.  asr.l #8,d1
  4396.  move.l d1,d0
  4397.  asr.l #1,d0
  4398.  add.l d0,d1
  4399.  add.w d1,4+64(a0)
  4400.  
  4401.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4402.  
  4403.  endc
  4404.  
  4405.  ifne CHEESEY
  4406.  
  4407.  move.w #-1,12+64(a0)
  4408.  endc
  4409.  
  4410.  rts
  4411.  
  4412.  
  4413.  
  4414. GunSelected: dc.b 0
  4415.  even
  4416.  
  4417.  
  4418. GunData: dc.l 0
  4419.  
  4420.  
  4421. protA: dc.w 0
  4422.  
  4423. Path:
  4424. ; incbin "testpath"
  4425. endpath:
  4426. pathpt: dc.l Path
  4427.  
  4428.  
  4429. PLR1KEYS: dc.b 0
  4430. PLR1PATH: dc.b 0
  4431. PLR1MOUSE: dc.b -1
  4432. PLR1JOY: dc.b 0
  4433. PLR2KEYS: dc.b 0
  4434. PLR2PATH: dc.b 0
  4435. PLR2MOUSE: dc.b -1
  4436. PLR2JOY: dc.b 0
  4437.  
  4438.  even
  4439.  
  4440. PLR1_bobble: dc.w 0
  4441. PLR2_bobble: dc.w 0
  4442. xwobble: dc.l 0
  4443. xwobxoff: dc.w 0
  4444.  
  4445. xwobzoff: dc.w 0
  4446.  
  4447. PLR1_Control:
  4448.  
  4449. ; Take a snapshot of everything.
  4450.  
  4451.  move.l PLR1_xoff,d2
  4452.  move.l d2,PLR1_oldxoff
  4453.  move.l d2,oldx
  4454.  move.l PLR1_zoff,d3
  4455.  move.l d3,PLR1_oldzoff
  4456.  move.l d3,oldz
  4457.  move.l p1_xoff,d0
  4458.  move.l d0,PLR1_xoff
  4459.  move.l d0,newx
  4460.  move.l p1_zoff,d1
  4461.  move.l d1,newz
  4462.  move.l d1,PLR1_zoff
  4463.  
  4464.  move.l p1_height,PLR1_height
  4465.  
  4466.  sub.l d2,d0
  4467.  sub.l d3,d1
  4468.  move.l d0,xdiff
  4469.  move.l d1,zdiff
  4470.  move.w p1_angpos,d0
  4471.  move.w d0,PLR1_angpos
  4472.  
  4473.  move.l #SineTable,a1
  4474.  move.w (a1,d0.w),PLR1_sinval
  4475.  add.w #2048,d0
  4476.  and.w #8190,d0
  4477.  move.w (a1,d0.w),PLR1_cosval
  4478.  
  4479.  move.l p1_yoff,d0
  4480.  move.w p1_bobble,d1
  4481.  move.w (a1,d1.w),d1
  4482.  move.w d1,d3
  4483.  ble.s .notnegative
  4484.  neg.w d1
  4485. .notnegative:
  4486.  add.w #16384,d1
  4487.  asr.w #4,d1
  4488.  
  4489.  tst.b PLR1_Ducked
  4490.  bne.s .notdouble
  4491.  add.w d1,d1
  4492. .notdouble
  4493.  ext.l d1
  4494.  
  4495.  move.l d1,PLR1_BOBBLEY
  4496.  
  4497.  move.l PLR1_height,d4
  4498.  sub.l d1,d4
  4499.  add.l d1,d0
  4500.  
  4501.  cmp.b #'s',mors
  4502.  beq.s .otherwob
  4503.  asr.w #6,d3
  4504.  ext.l d3
  4505.  move.l d3,xwobble
  4506.  move.w PLR1_sinval,d1
  4507.  muls d3,d1
  4508.  move.w PLR1_cosval,d2
  4509.  muls d3,d2
  4510.  swap d1
  4511.  swap d2
  4512.  asr.w #7,d1
  4513.  move.w d1,xwobxoff
  4514.  asr.w #7,d2
  4515.  neg.w d2
  4516.  move.w d2,xwobzoff
  4517. .otherwob
  4518.  
  4519.  move.l d0,PLR1_yoff
  4520.  move.l d0,newy
  4521.  move.l d0,oldy
  4522.  
  4523.  move.l d4,thingheight
  4524.  move.l #40*256,StepUpVal
  4525.  tst.b PLR1_Ducked
  4526.  beq.s .okbigstep
  4527.  move.l #10*256,StepUpVal
  4528. .okbigstep:
  4529.  
  4530.  move.l #$1000000,StepDownVal
  4531.  
  4532.  move.l PLR1_Roompt,a0
  4533.  move.w ToTelZone(a0),d0
  4534.  blt .noteleport
  4535.  
  4536.  move.w ToTelX(a0),newx
  4537.  move.w ToTelZ(a0),newz
  4538.  move.w #-1,CollId
  4539.  move.l #%111111111111111111,CollideFlags
  4540.  bsr Collision
  4541.  tst.b hitwall
  4542.  beq.s .teleport
  4543.  
  4544.  move.w PLR1_xoff,newx
  4545.  move.w PLR1_zoff,newz
  4546.  bra .noteleport
  4547.  
  4548. .teleport:
  4549.  
  4550.  st PLR1_TELEPORTED
  4551.  
  4552.  move.l PLR1_Roompt,a0
  4553.  move.w ToTelZone(a0),d0
  4554.  move.w ToTelX(a0),PLR1_xoff
  4555.  move.w ToTelZ(a0),PLR1_zoff
  4556.  move.l PLR1_yoff,d1
  4557.  sub.l ToZoneFloor(a0),d1
  4558.  move.l ZoneAdds,a0
  4559.  move.l (a0,d0.w*4),a0
  4560.  add.l LEVELDATA,a0
  4561.  move.l a0,PLR1_Roompt
  4562.  add.l ToZoneFloor(a0),d1
  4563.  move.l d1,PLR1s_yoff
  4564.  move.l d1,PLR1_yoff
  4565.  move.l d1,PLR1s_tyoff
  4566.  move.l PLR1_xoff,PLR1s_xoff
  4567.  move.l PLR1_zoff,PLR1s_zoff
  4568.  
  4569.  SAVEREGS
  4570.  move.w #0,Noisex
  4571.  move.w #0,Noisez
  4572.  move.w #26,Samplenum
  4573.  move.w #100,Noisevol
  4574.  move.b #$fa,IDNUM
  4575.  jsr MakeSomeNoise
  4576.  GETREGS
  4577.  
  4578.  bra .cantmove
  4579.  
  4580. .noteleport:
  4581.  
  4582.  move.l PLR1_Roompt,objroom
  4583.  move.w #%100000000,wallflags
  4584.  move.b PLR1_StoodInTop,StoodInTop
  4585.  
  4586.  move.l #%1011111110111000011,CollideFlags
  4587.  move.w #-1,CollId
  4588.  
  4589.  bsr Collision
  4590.  tst.b hitwall
  4591.  beq.s .nothitanything
  4592.  move.w oldx,PLR1_xoff
  4593.  move.w oldz,PLR1_zoff
  4594.  move.l PLR1_xoff,PLR1s_xoff
  4595.  move.l PLR1_zoff,PLR1s_zoff
  4596.  bra .cantmove
  4597. .nothitanything:
  4598.  
  4599.  move.w #40,extlen
  4600.  move.b #0,awayfromwall
  4601.  
  4602.  clr.b exitfirst
  4603.  clr.b wallbounce
  4604.  bsr MoveObject
  4605.  move.b StoodInTop,PLR1_StoodInTop
  4606.  move.l objroom,PLR1_Roompt
  4607.  move.w newx,PLR1_xoff
  4608.  move.w newz,PLR1_zoff
  4609.  move.l PLR1_xoff,PLR1s_xoff
  4610.  move.l PLR1_zoff,PLR1s_zoff
  4611.  
  4612. .cantmove:
  4613.  
  4614.  move.l PLR1_Roompt,a0
  4615.  
  4616.  move.l ToZoneFloor(a0),d0
  4617.  tst.b PLR1_StoodInTop
  4618.  beq.s notintop
  4619.  move.l ToUpperFloor(a0),d0
  4620. notintop:
  4621.  
  4622.  adda.w #ToZonePts,a0
  4623.  sub.l PLR1_height,d0
  4624.  move.l d0,PLR1s_tyoff
  4625.  move.w p1_angpos,tmpangpos
  4626.  
  4627. ; move.l (a0),a0        ; jump to viewpoint list
  4628.  * A0 is pointing at a pointer to list of points to rotate
  4629.  move.w (a0)+,d1
  4630.  ext.l d1
  4631.  add.l PLR1_Roompt,d1
  4632.  move.l d1,PLR1_PointsToRotatePtr
  4633.  tst.w (a0)+
  4634.  sne.s DRAWNGRAPHTOP
  4635.  beq.s nobackgraphics
  4636.  cmp.b #'s',mors
  4637.  beq.s nobackgraphics
  4638.  move.l a0,-(a7)
  4639.  jsr putinbackdrop 
  4640.  move.l (a7)+,a0
  4641. nobackgraphics:
  4642.  adda.w #10,a0
  4643.  move.l a0,PLR1_ListOfGraphRooms
  4644.  
  4645. *************************************************
  4646.  rts
  4647.  
  4648. DRAWNGRAPHTOP
  4649.  dc.w 0 
  4650. tstzone: dc.l 0
  4651. CollId: dc.w 0
  4652.  
  4653. PLR2_Control:
  4654.  
  4655. ; Take a snapshot of everything.
  4656.  
  4657.  move.l PLR2_xoff,d2
  4658.  move.l d2,PLR2_oldxoff
  4659.  move.l d2,oldx
  4660.  move.l PLR2_zoff,d3
  4661.  move.l d3,PLR2_oldzoff
  4662.  move.l d3,oldz
  4663.  move.l p2_xoff,d0
  4664.  move.l d0,PLR2_xoff
  4665.  move.l d0,newx
  4666.  move.l p2_zoff,d1
  4667.  move.l d1,newz
  4668.  move.l d1,PLR2_zoff
  4669.  
  4670.  move.l p2_height,PLR2_height
  4671.  
  4672.  sub.l d2,d0
  4673.  sub.l d3,d1
  4674.  move.l d0,xdiff
  4675.  move.l d1,zdiff
  4676.  move.w p2_angpos,d0
  4677.  move.w d0,PLR2_angpos
  4678.  
  4679.  move.l #SineTable,a1
  4680.  move.w (a1,d0.w),PLR2_sinval
  4681.  add.w #2048,d0
  4682.  and.w #8190,d0
  4683.  move.w (a1,d0.w),PLR2_cosval
  4684.  
  4685.  move.l p2_yoff,d0
  4686.  move.w p2_bobble,d1
  4687.  move.w (a1,d1.w),d1
  4688.  move.w d1,d3
  4689.  ble.s .notnegative
  4690.  neg.w d1
  4691. .notnegative:
  4692.  add.w #16384,d1
  4693.  asr.w #4,d1
  4694.  
  4695.  tst.b PLR2_Ducked
  4696.  bne.s .notdouble
  4697.  add.w d1,d1
  4698. .notdouble
  4699.  ext.l d1
  4700.  
  4701.  move.l d1,PLR2_BOBBLEY
  4702.  
  4703.  move.l PLR2_height,d4
  4704.  sub.l d1,d4
  4705.  add.l d1,d0
  4706.  
  4707.  cmp.b #'s',mors
  4708.  bne.s .otherwob
  4709.  asr.w #6,d3
  4710.  ext.l d3
  4711.  move.l d3,xwobble
  4712.  move.w PLR2_sinval,d1
  4713.  muls d3,d1
  4714.  move.w PLR2_cosval,d2
  4715.  muls d3,d2
  4716.  swap d1
  4717.  swap d2
  4718.  asr.w #7,d1
  4719.  move.w d1,xwobxoff
  4720.  asr.w #7,d2
  4721.  neg.w d2
  4722.  move.w d2,xwobzoff
  4723. .otherwob
  4724.  
  4725.  move.l d0,PLR2_yoff
  4726.  move.l d0,newy
  4727.  move.l d0,oldy
  4728.  
  4729.  move.l d4,thingheight
  4730.  move.l #40*256,StepUpVal
  4731.  tst.b PLR2_Ducked
  4732.  beq.s .okbigstep
  4733.  move.l #10*256,StepUpVal
  4734. .okbigstep:
  4735.  
  4736.  move.l #$1000000,StepDownVal
  4737.  
  4738.  move.l PLR2_Roompt,a0
  4739.  move.w ToTelZone(a0),d0
  4740.  blt .noteleport
  4741.  
  4742.  move.w ToTelX(a0),newx
  4743.  move.w ToTelZ(a0),newz
  4744.  move.w #-1,CollId
  4745.  move.l #%111111111111111111,CollideFlags
  4746.  bsr Collision
  4747.  tst.b hitwall
  4748.  beq.s .teleport
  4749.  
  4750.  move.w PLR2_xoff,newx
  4751.  move.w PLR2_zoff,newz
  4752.  bra .noteleport
  4753.  
  4754. .teleport:
  4755.  
  4756.  st PLR2_TELEPORTED
  4757.  
  4758.  move.l PLR2_Roompt,a0
  4759.  move.w ToTelZone(a0),d0
  4760.  move.w ToTelX(a0),PLR2_xoff
  4761.  move.w ToTelZ(a0),PLR2_zoff
  4762.  move.l PLR2_yoff,d1
  4763.  sub.l ToZoneFloor(a0),d1
  4764.  move.l ZoneAdds,a0
  4765.  move.l (a0,d0.w*4),a0
  4766.  add.l LEVELDATA,a0
  4767.  move.l a0,PLR2_Roompt
  4768.  add.l ToZoneFloor(a0),d1
  4769.  move.l d1,PLR2s_yoff
  4770.  move.l d1,PLR2_yoff
  4771.  move.l d1,PLR2s_tyoff
  4772.  move.l PLR2_xoff,PLR2s_xoff
  4773.  move.l PLR2_zoff,PLR2s_zoff
  4774.  
  4775.  SAVEREGS
  4776.  move.w #0,Noisex
  4777.  move.w #0,Noisez
  4778.  move.w #26,Samplenum
  4779.  move.w #100,Noisevol
  4780.  move.b #$fa,IDNUM
  4781.  jsr MakeSomeNoise
  4782.  GETREGS
  4783.  
  4784.  bra .cantmove
  4785.  
  4786. .noteleport:
  4787.  
  4788.  move.l PLR2_Roompt,objroom
  4789.  move.w #%100000000000,wallflags
  4790.  move.b PLR2_StoodInTop,StoodInTop
  4791.  
  4792.  move.l #%1011111010111100011,CollideFlags
  4793.  move.w #-1,CollId
  4794.  
  4795.  bsr Collision
  4796.  tst.b hitwall
  4797.  beq.s .nothitanything
  4798.  move.w oldx,PLR2_xoff
  4799.  move.w oldz,PLR2_zoff
  4800.  move.l PLR2_xoff,PLR2s_xoff
  4801.  move.l PLR2_zoff,PLR2s_zoff
  4802.  bra .cantmove
  4803. .nothitanything:
  4804.  
  4805.  move.w #40,extlen
  4806.  move.b #0,awayfromwall
  4807.  
  4808.  clr.b exitfirst
  4809.  clr.b wallbounce
  4810.  bsr MoveObject
  4811.  move.b StoodInTop,PLR2_StoodInTop
  4812.  move.l objroom,PLR2_Roompt
  4813.  move.w newx,PLR2_xoff
  4814.  move.w newz,PLR2_zoff
  4815.  move.l PLR2_xoff,PLR2s_xoff
  4816.  move.l PLR2_zoff,PLR2s_zoff
  4817.  
  4818. .cantmove
  4819.  
  4820.  move.l PLR2_Roompt,a0
  4821.  
  4822.  move.l ToZoneFloor(a0),d0
  4823.  tst.b PLR2_StoodInTop
  4824.  beq.s .notintop
  4825.  move.l ToUpperFloor(a0),d0
  4826. .notintop:
  4827.  
  4828.  adda.w #ToZonePts,a0
  4829.  sub.l PLR2_height,d0
  4830.  move.l d0,PLR2s_tyoff
  4831.  move.w p2_angpos,tmpangpos
  4832.  
  4833. ; move.l (a0),a0        ; jump to viewpoint list
  4834.  * A0 is pointing at a pointer to list of points to rotate
  4835.  move.w (a0)+,d1
  4836.  ext.l d1
  4837.  add.l PLR2_Roompt,d1
  4838.  move.l d1,PLR2_PointsToRotatePtr
  4839.  tst.w (a0)+
  4840.  sne.s DRAWNGRAPHTOP
  4841.  beq.s .nobackgraphics
  4842.  cmp.b #'s',mors
  4843.  bne.s .nobackgraphics
  4844.  move.l a0,-(a7)
  4845.  jsr putinbackdrop 
  4846.  move.l (a7)+,a0
  4847. .nobackgraphics:
  4848.  adda.w #10,a0
  4849.  move.l a0,PLR2_ListOfGraphRooms
  4850.  
  4851. *****************************************************
  4852.  rts
  4853.  
  4854.  
  4855. KeyMap: ds.b 256
  4856.  
  4857. fillscrnwater:
  4858.  dc.w 0
  4859. DONTDOGUN:
  4860.  dc.w 0
  4861.  
  4862. ;temptemp: ds.l 200
  4863. ;temptempptr: dc.l 0
  4864.  
  4865. DrawDisplay:
  4866.  
  4867. ; move.l #temptemp,temptempptr
  4868.  
  4869.  clr.b fillscrnwater
  4870.  
  4871.  move.l #SineTable,a0
  4872.  move.w angpos,d0
  4873.  move.w (a0,d0.w),d6
  4874.  adda.w #2048,a0
  4875.  move.w (a0,d0.w),d7
  4876.  move.w d6,sinval
  4877.  move.w d7,cosval
  4878.  
  4879.  move.l yoff,d0
  4880.  asr.l #8,d0
  4881.  move.w d0,d1
  4882.  add.w #256-32,d1
  4883.  and.w #255,d1
  4884.  move.w d1,wallyoff
  4885.  move.l yoff,d0
  4886.  asr.l #6,d0
  4887.  move.w d0,flooryoff
  4888.  
  4889.  move.w xoff,d6
  4890.  move.w d6,d3
  4891.  asr.w #1,d3
  4892.  add.w d3,d6
  4893.  asr.w #1,d6
  4894.  move.w d6,xoff34
  4895.  
  4896.  move.w zoff,d6
  4897.  move.w d6,d3
  4898.  asr.w #1,d3
  4899.  add.w d3,d6
  4900.  asr.w #1,d6
  4901.  move.w d6,zoff34
  4902.  
  4903.  bsr RotateLevelPts
  4904.  bsr RotateObjectPts
  4905.  bsr CalcPLR1InLine
  4906.  
  4907.  
  4908.  cmp.b #'n',mors
  4909.  bne.s doplr2too
  4910.  move.l PLR2_Obj,a0
  4911.  move.w #-1,12(a0)
  4912.  move.w #-1,GraphicRoom(a0)
  4913.  bra noplr2either
  4914.  
  4915. doplr2too:
  4916.  bsr CalcPLR2InLine
  4917. noplr2either:
  4918.  
  4919.  move.l endoflist,a0
  4920. ; move.w #-1,(a0)
  4921.  
  4922. ; move.l #FinalOrder,a0
  4923.  
  4924.  
  4925. subroomloop:
  4926. ; move.w (a0)+,d7
  4927.  move.w -(a0),d7
  4928.  blt jumpoutofrooms
  4929.  
  4930. ; bsr setlrclip
  4931. ; move.w leftclip,d0
  4932. ; cmp.w rightclip,d0
  4933. ; bge subroomloop
  4934.  move.l a0,-(a7)
  4935.  
  4936.  move.l ZoneAdds,a0
  4937.  move.l (a0,d7.w*4),a0
  4938.  add.l LEVELDATA,a0
  4939.  move.l ToZoneRoof(a0),SplitHeight
  4940.  move.l a0,ROOMBACK
  4941.  
  4942.  move.l ZoneGraphAdds,a0
  4943.  move.l 4(a0,d7.w*8),a2
  4944.  move.l (a0,d7.w*8),a0
  4945.  
  4946.  add.l LEVELGRAPHICS,a0
  4947.  add.l LEVELGRAPHICS,a2
  4948.  move.l a2,ThisRoomToDraw+4
  4949.  move.l a0,ThisRoomToDraw
  4950.  
  4951.  move.l ListOfGraphRooms,a1
  4952.  
  4953.  
  4954.  
  4955. finditit:
  4956.  tst.w (a1)
  4957.  blt nomoretodoatall
  4958.  cmp.w (a1),d7
  4959.  beq outoffind
  4960.  adda.w #8,a1
  4961.  bra finditit
  4962.  
  4963. outoffind:
  4964.  
  4965.  move.l a1,-(a7)
  4966.  
  4967.  
  4968.  move.w #0,leftclip
  4969.  move.w RIGHTX,rightclip
  4970.  moveq #0,d7
  4971.  move.w 2(a1),d7
  4972.  blt.s outofrcliplop
  4973.  move.l LEVELCLIPS,a0
  4974.  lea (a0,d7.l*2),a0
  4975.  
  4976.  tst.w (a0)
  4977.  blt outoflcliplop
  4978.  
  4979.  bsr NEWsetlclip
  4980.  
  4981. intolcliplop:        ; clips
  4982.  tst.w (a0)
  4983.  blt outoflcliplop
  4984.  
  4985.  bsr NEWsetlclip 
  4986.  bra intolcliplop
  4987.  
  4988. outoflcliplop:
  4989.  
  4990.  addq #2,a0
  4991.  
  4992.  tst.w (a0)
  4993.  blt outofrcliplop
  4994.  
  4995.  bsr NEWsetrclip
  4996.  
  4997. intorcliplop:        ; clips
  4998.  tst.w (a0)
  4999.  blt outofrcliplop
  5000.  
  5001.  bsr NEWsetrclip 
  5002.  bra intorcliplop
  5003.  
  5004. outofrcliplop:
  5005.  
  5006.  
  5007.  move.w leftclip,d0
  5008.  cmp.w RIGHTX,d0
  5009.  bge dontbothercantseeit
  5010.  move.w rightclip,d1
  5011.  blt dontbothercantseeit
  5012.  cmp.w d1,d0
  5013.  bge dontbothercantseeit
  5014.  
  5015.  move.l yoff,d0
  5016.  cmp.l SplitHeight,d0
  5017.  blt botfirst
  5018.  
  5019.  move.l ThisRoomToDraw+4,a0
  5020.  cmp.l LEVELGRAPHICS,a0
  5021.  beq.s noupperroom
  5022.  st DOUPPER
  5023.  
  5024.  move.l ROOMBACK,a1
  5025.  move.l ToUpperRoof(a1),TOPOFROOM
  5026.  move.l ToUpperFloor(a1),BOTOFROOM
  5027.  
  5028.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5029.  bsr dothisroom
  5030. noupperroom:
  5031.  move.l ThisRoomToDraw,a0
  5032.  clr.b DOUPPER
  5033.  move.l #CurrentPointBrights,PointBrightsPtr
  5034.  
  5035.  move.l ROOMBACK,a1
  5036.  move.l ToZoneRoof(a1),d0
  5037.  move.l d0,TOPOFROOM
  5038.  move.l ToZoneFloor(a1),d1
  5039.  move.l d1,BOTOFROOM
  5040.  
  5041.  move.l ToZoneWater(a1),d2
  5042.  cmp.l yoff,d2
  5043.  blt.s .abovefirst
  5044.  move.l d2,BEFOREWATTOP
  5045.  move.l d1,BEFOREWATBOT
  5046.  move.l d2,AFTERWATBOT
  5047.  move.l d0,AFTERWATTOP
  5048.  bra.s .belowfirst
  5049. .abovefirst:
  5050.  move.l d0,BEFOREWATTOP
  5051.  move.l d2,BEFOREWATBOT
  5052.  move.l d1,AFTERWATBOT
  5053.  move.l d2,AFTERWATTOP
  5054. .belowfirst:
  5055.  
  5056.  bsr dothisroom
  5057.  
  5058.  bra dontbothercantseeit
  5059. botfirst:
  5060.  
  5061.  move.l ThisRoomToDraw,a0
  5062.  clr.b DOUPPER
  5063.  move.l #CurrentPointBrights,PointBrightsPtr
  5064.  
  5065.  move.l ROOMBACK,a1
  5066.  move.l ToZoneRoof(a1),d0
  5067.  move.l d0,TOPOFROOM
  5068.  move.l ToZoneFloor(a1),d1
  5069.  move.l d1,BOTOFROOM
  5070.  
  5071.  move.l ToZoneWater(a1),d2
  5072.  cmp.l yoff,d2
  5073.  blt.s .abovefirst
  5074.  move.l d2,BEFOREWATTOP
  5075.  move.l d1,BEFOREWATBOT
  5076.  move.l d2,AFTERWATBOT
  5077.  move.l d0,AFTERWATTOP
  5078.  bra.s .belowfirst
  5079. .abovefirst:
  5080.  move.l d0,BEFOREWATTOP
  5081.  move.l d2,BEFOREWATBOT
  5082.  move.l d1,AFTERWATBOT
  5083.  move.l d2,AFTERWATTOP
  5084. .belowfirst:
  5085.  
  5086.  
  5087.  bsr dothisroom
  5088.  move.l ThisRoomToDraw+4,a0
  5089.  cmp.l LEVELGRAPHICS,a0
  5090.  beq.s noupperroom2
  5091.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5092.  
  5093.  move.l ROOMBACK,a1
  5094.  move.l ToUpperRoof(a1),TOPOFROOM
  5095.  move.l ToUpperFloor(a1),BOTOFROOM
  5096.  
  5097.  st DOUPPER
  5098.  bsr dothisroom
  5099. noupperroom2:
  5100.  
  5101. dontbothercantseeit:
  5102. pastemp:
  5103.  
  5104.  move.l (a7)+,a1
  5105.  move.l ThisRoomToDraw,a0
  5106.  move.w (a0),d7
  5107.  
  5108.  adda.w #8,a1
  5109.  bra finditit
  5110.  
  5111. nomoretodoatall:
  5112.  
  5113.  move.l (a7)+,a0
  5114.  
  5115.  bra subroomloop
  5116.  
  5117. jumpoutofrooms:
  5118.  
  5119.  
  5120.  tst.b DONTDOGUN
  5121.  bne NOGUNLOOK
  5122.  
  5123.  cmp.b #'s',mors
  5124.  beq.s drawslavegun
  5125.  
  5126.  moveq #0,d0
  5127.  move.b PLR1_GunSelected,d0
  5128.  moveq #0,d1
  5129.  move.b PLR1_GunFrame,d1
  5130. ; bsr DRAWINGUN
  5131.  bra drawngun
  5132.  
  5133. drawslavegun
  5134.  moveq #0,d0
  5135.  move.b PLR2_GunSelected,d0
  5136.  moveq #0,d1
  5137.  move.b PLR2_GunFrame,d1
  5138. ; bsr DRAWINGUN
  5139.  
  5140. drawngun:
  5141.  
  5142. NOGUNLOOK:
  5143.  
  5144.  moveq #0,d1
  5145.  move.b PLR1_GunFrame,d1
  5146.  sub.w TempFrames,d1
  5147.  bgt.s .nn
  5148.  moveq #0,d1
  5149. .nn
  5150.  move.b d1,PLR1_GunFrame
  5151.  
  5152.  ble.s .donefire
  5153.  sub.b #1,PLR1_GunFrame
  5154. .donefire:
  5155.  
  5156.  moveq #0,d1
  5157.  move.b PLR2_GunFrame,d1
  5158.  sub.w TempFrames,d1
  5159.  bgt.s .nn2
  5160.  moveq #0,d1
  5161. .nn2
  5162.  move.b d2,PLR2_GunFrame
  5163.  
  5164.  ble.s .donefire2
  5165.  sub.b #1,PLR2_GunFrame
  5166. .donefire2:
  5167.  
  5168.  tst.b DOANYWATER
  5169.  beq.s nowaterfull
  5170.  
  5171.  move.w #231,d0
  5172.  move.l FASTBUFFER,a0
  5173.  tst.b fillscrnwater
  5174.  beq nowaterfull
  5175.  bgt oknothalf
  5176.  moveq #119,d0
  5177.  add.l #320*120*2,a0
  5178. oknothalf:
  5179.  
  5180.  bclr.b #1,$bfe001
  5181.  
  5182.  move.l #brightentab+512*4,a2
  5183.  moveq #0,d2
  5184.  
  5185.  tst.b FULLSCR
  5186.  bne.s DOALLSCREEN
  5187.  
  5188. DOSOMESCREEN:
  5189.  
  5190.  move.w #159,d0
  5191. .fw:
  5192.  move.w #191,d1
  5193. .fwa:
  5194.  move.b (a0),d2
  5195.  move.b (a2,d2.w*2),(a0)+
  5196.  dbra d1,.fwa
  5197.  add.w #(320-192),a0
  5198.  dbra d0,.fw
  5199.  rts
  5200.  
  5201. DOALLSCREEN:
  5202.  
  5203. fw:
  5204.  move.w #287,d1
  5205. fwa:
  5206.  move.b (a0),d2
  5207.  move.b (a2,d2.w*2),(a0)+
  5208.  dbra d1,fwa
  5209.  add.w #32,a0
  5210.  dbra d0,fw
  5211.  
  5212. ; move.l frompt,a0
  5213. ; add.l #104*4*60,a0
  5214. ; 
  5215. ; move.w #31,d0
  5216. ;fw:
  5217. ; move.w d5,d1
  5218. ; move.l a0,a1
  5219. ;fwd:
  5220. ;val SET 104*4*19
  5221. ; REPT 20
  5222. ; and.w #$ff,val(a1)
  5223. ;val SET val-104*4
  5224. ; ENDR
  5225. ; sub.l #104*4*20,a1
  5226. ; dbra d1,fwd
  5227. ; addq #4,a0
  5228. ; dbra d0,fw
  5229. ;
  5230. ; addq #4,a0
  5231. ;
  5232. ; move.w #31,d0
  5233. ;sw:
  5234. ; move.w d5,d1
  5235. ; move.l a0,a1
  5236. ;swd:
  5237. ;val SET 104*4*19
  5238. ; REPT 20
  5239. ; and.w #$ff,val(a1)
  5240. ;val SET val-104*4
  5241. ; ENDR
  5242. ; sub.l #104*4*20,a1
  5243. ; dbra d1,swd
  5244. ; addq #4,a0
  5245. ; dbra d0,sw
  5246. ;
  5247. ; addq #4,a0
  5248. ;
  5249. ; move.w #31,d0
  5250. ;tw:
  5251. ; move.w d5,d1
  5252. ; move.l a0,a1
  5253. ;twd:
  5254. ;val SET 104*4*19
  5255. ; REPT 20
  5256. ; and.w #$ff,val(a1)
  5257. ;val SET val-104*4
  5258. ; ENDR
  5259. ; sub.l #104*4*20,a1
  5260. ; dbra d1,twd
  5261. ; addq #4,a0
  5262. ; dbra d0,tw
  5263. ;
  5264.  rts
  5265.  
  5266. nowaterfull:
  5267.  bset.b #1,$bfe001
  5268.  rts
  5269.  
  5270. prot9: dc.w 0
  5271.  
  5272. ;TempBuffer: ds.l 100 
  5273.  
  5274. prot8: dc.w 0
  5275.  
  5276. ClipTable: ds.l 30
  5277. EndOfClipPt: dc.l 0
  5278. DOUPPER: dc.w 0
  5279.  
  5280. RealTable:
  5281.  dc.l prot1-78935450
  5282.  dc.l prot2-78935450
  5283.  dc.l prot3-78935450
  5284.  dc.l prot4-78935450
  5285.  dc.l prot5-78935450
  5286.  dc.l prot6-78935450
  5287.  dc.l prot7-78935450
  5288.  dc.l prot8-78935450
  5289.  dc.l prot9-78935450
  5290.  dc.l protA-78935450
  5291.  
  5292. dothisroom
  5293.  
  5294.  move.w (a0)+,d0
  5295.  move.w d0,currzone
  5296.  move.w d0,d1
  5297.  muls #40,d1
  5298.  add.l #BIGMAP,d1
  5299.  move.l d1,BIGPTR
  5300.  move.w d0,d1
  5301.  ext.l d1
  5302.  asl.w #2,d1
  5303.  add.l #COMPACTMAP,d1
  5304.  move.l d1,COMPACTPTR
  5305.  add.l #4,d1
  5306.  cmp.l LASTZONE,d1
  5307.  ble.s .nochange
  5308.  move.l d1,LASTZONE
  5309. .nochange:
  5310.  
  5311.  move.l #ZoneBrightTable,a1
  5312.  move.l (a1,d0.w*4),d1
  5313.  tst.b DOUPPER
  5314.  bne.s .okbot
  5315.  swap d1
  5316. .okbot:
  5317.  move.w d1,ZoneBright
  5318.  
  5319. polyloop:
  5320.  move.w (a0)+,d0
  5321.  move.w d0,WALLIDENT
  5322.  and.w #$ff,d0
  5323.  tst.b d0
  5324.  blt jumpoutofloop
  5325.  beq itsawall
  5326.  cmp.w #3,d0
  5327.  beq itsasetclip
  5328.  blt itsafloor
  5329.  cmp.w #4,d0
  5330.  beq itsanobject
  5331.  cmp.w #5,d0
  5332.  beq itsanarc
  5333.  cmp.w #6,d0
  5334.  beq itsalightbeam
  5335.  cmp.w #7,d0
  5336.  beq.s itswater
  5337.  cmp.w #9,d0
  5338.  ble itsachunkyfloor
  5339.  cmp.w #11,d0
  5340.  ble itsabumpyfloor
  5341.  cmp.w #12,d0
  5342.  beq.s itsbackdrop
  5343.  cmp.w #13,d0
  5344.  beq.s itsaseewall
  5345.  
  5346.  bra polyloop
  5347.  
  5348. itsaseewall:
  5349.  st seethru
  5350.  jsr itsawalldraw
  5351.  bra polyloop
  5352.  
  5353. itsbackdrop:
  5354.  jsr putinbackdrop
  5355.  bra polyloop
  5356.  
  5357. itswater:
  5358.  PROTHCHECK
  5359.  move.w #2,SMALLIT
  5360.  move.w #3,d0
  5361.  clr.b gourfloor
  5362.  move.l #FloorLine,LineToUse
  5363.  st usewater
  5364.  clr.b usebumps
  5365.  jsr itsafloordraw
  5366.  bra polyloop
  5367.  
  5368. itsanarc:
  5369.  jsr CurveDraw
  5370.  bra polyloop
  5371.  
  5372. itsanobject:
  5373.  jsr ObjDraw
  5374.  bra polyloop
  5375.  
  5376. itsalightbeam:
  5377.  jsr LightDraw
  5378.  bra polyloop
  5379.  
  5380. itsabumpyfloor:
  5381.  move.w #1,SMALLIT
  5382.  sub.w #9,d0
  5383.  st usebumps
  5384.  st smoothbumps
  5385.  clr.b usewater
  5386.  move.l #BumpLine,LineToUse
  5387.  jsr itsafloordraw
  5388.  bra polyloop
  5389.  
  5390. itsachunkyfloor:
  5391.  move.w #1,SMALLIT
  5392.  subq.w #7,d0
  5393.  st usebumps
  5394.  sub.w #12,topclip
  5395. ; add.w #10,botclip
  5396.  clr.b smoothbumps
  5397.  clr.b usewater
  5398.  move.l #BumpLine,LineToUse
  5399.  jsr itsafloordraw
  5400.  add.w #12,topclip
  5401. ; sub.w #10,botclip
  5402.  bra polyloop 
  5403.  
  5404. itsafloor:
  5405.  
  5406.  move.l PointBrightsPtr,FloorPtBrights
  5407.  
  5408.  move.w currzone,d1
  5409.  muls #80,d1
  5410.  
  5411.  cmp.w #2,d0
  5412.  bne.s .nfl
  5413.  add.l #2,d1
  5414. .nfl
  5415.  add.l d1,FloorPtBrights
  5416.  
  5417.  move.w #1,SMALLIT
  5418.  
  5419.  movem.l a0/d0,-(a7)
  5420.  move.l $4.w,a6
  5421.  jsr _LVOSuperState(a6)
  5422.  move.l d0,SSTACK
  5423.  movem.l (a7)+,a0/d0
  5424.  
  5425.  move.l #SimpleFloorLine,LineToUse
  5426. * 1,2 = floor/roof
  5427.  clr.b usewater
  5428.  clr.b usebumps
  5429.  move.b #0,gourfloor    
  5430.  jsr itsafloordraw
  5431.  move.l a0,-(a7)
  5432.  move.l $4.w,a6
  5433.  move.l SSTACK,d0
  5434.  jsr _LVOUserState(a6)
  5435.  move.l (a7)+,a0
  5436.  bra polyloop
  5437. itsasetclip:
  5438.  bra polyloop
  5439. itsawall:
  5440.  clr.b seethru
  5441. ; move.l #stripbuffer,a1
  5442.  jsr itsawalldraw
  5443.  bra polyloop
  5444.  
  5445. jumpoutofloop:
  5446.  rts
  5447.  
  5448. LASTZONE: dc.l 0
  5449. COMPACTPTR: dc.l 0
  5450. BIGPTR: dc.l 0
  5451. WALLIDENT: dc.w 0
  5452. SMALLIT: dc.w 0
  5453. GOURSEL: dc.w 0
  5454. ThisRoomToDraw: dc.l 0,0
  5455. SplitHeight: dc.l 0
  5456.  
  5457.  include "ab3:CHEESESAUCE/OrderZones"
  5458.  
  5459. ReadMouse:
  5460.  move.l #$dff000,a6
  5461.  clr.l d0
  5462.  clr.l d1
  5463.  move.w $a(a6),d0
  5464.  lsr.w #8,d0
  5465.  ext.l d0
  5466.  move.w d0,d3
  5467.  move.w oldmy,d2
  5468.  sub.w d2,d0
  5469.  
  5470.  cmp.w #127,d0
  5471.  blt nonegy
  5472.  move.w #255,d1
  5473.  sub.w d0,d1
  5474.  move.w d1,d0
  5475.  neg.w d0
  5476. nonegy:
  5477.  
  5478.  cmp.w #-127,d0
  5479.  bge nonegy2
  5480.  move.w #255,d1
  5481.  add.w d0,d1
  5482.  move.w d1,d0
  5483. nonegy2:
  5484.  
  5485.  add.b d0,d2
  5486.  add.w d0,oldy2
  5487.  move.w d2,oldmy
  5488.  move.w d2,d0
  5489.  
  5490.  move.w oldy2,d0
  5491.  move.w d0,ymouse
  5492.  
  5493.  clr.l d0
  5494.  clr.l d1
  5495.  move.w $a(a6),d0
  5496.  ext.w d0
  5497.  ext.l d0
  5498.  move.w d0,d3
  5499.  move.w oldmx,d2
  5500.  sub.w d2,d0
  5501.  
  5502.  cmp.w #127,d0
  5503.  blt nonegx
  5504.  move.w #255,d1
  5505.  sub.w d0,d1
  5506.  move.w d1,d0
  5507.  neg.w d0
  5508. nonegx:
  5509.  
  5510.  cmp.w #-127,d0
  5511.  bge nonegx2
  5512.  move.w #255,d1
  5513.  add.w d0,d1
  5514.  move.w d1,d0
  5515. nonegx2:
  5516.  
  5517.  add.b d0,d2
  5518.  move.w d0,d1
  5519.  move.w d2,oldmx
  5520.  
  5521.  move.w #$0,$dff034
  5522.  
  5523.  add.w d0,oldx2
  5524.  move.w oldx2,d0
  5525.  and.w #2047,d0
  5526.  move.w d0,oldx2
  5527.  
  5528.  asl.w #2,d0
  5529.  sub.w prevx,d0
  5530.  add.w d0,prevx
  5531.  add.w d0,angpos
  5532.  move.w #0,lrs
  5533.  rts
  5534.  
  5535. noturn:
  5536.  
  5537. ; got to move lr instead. 
  5538.  
  5539. ; d1 = speed moved l/r
  5540.  
  5541.  move.w d1,lrs
  5542.  
  5543.  rts
  5544.  
  5545. lrs: dc.w 0
  5546. prevx: dc.w 0
  5547.  
  5548. angpos: dc.w 0
  5549. mang: dc.w 0
  5550. oldymouse: dc.w 0
  5551. xmouse: dc.w 0
  5552. ymouse: dc.w 0
  5553. oldx2: dc.w 0
  5554. oldmx: dc.w 0
  5555. oldmy: dc.w 0
  5556. oldy2: dc.w 0
  5557.  
  5558. MAPON: dc.w $0
  5559. REALMAPON: dc.w 0
  5560.  
  5561. RotateLevelPts:
  5562.  
  5563.  tst.b REALMAPON
  5564.  beq ONLYTHELONELY
  5565.  
  5566.  move.w sinval,d6
  5567.  swap d6
  5568.  move.w cosval,d6
  5569.  move.l Points,a3
  5570.  move.l #Rotated,a1
  5571.  move.l #OnScreen,a2
  5572.  move.w xoff,d4
  5573.  move.w zoff,d5
  5574.  
  5575. ; move.w #$c40,$dff106
  5576. ; move.w #$f00,$dff180
  5577.  
  5578.  move.w NumLevPts,d7
  5579.  
  5580.  tst.b FULLSCR
  5581.  bne BIGALL
  5582.  
  5583. pointrotlop2:
  5584.  move.w (a3)+,d0
  5585.  sub.w d4,d0
  5586.  move.w d0,d2
  5587.  move.w (a3)+,d1
  5588.  sub.w d5,d1
  5589.  muls d6,d2
  5590.  swap d6
  5591.  move.w d1,d3
  5592.  muls d6,d3
  5593.  sub.l d3,d2
  5594.  add.l d2,d2
  5595.  swap d2
  5596.  ext.l d2
  5597.  asl.l #7,d2
  5598.  add.l xwobble,d2
  5599.  move.l d2,(a1)+
  5600.  
  5601.  muls d6,d0
  5602.  swap d6
  5603.  muls d6,d1
  5604.  add.l d0,d1
  5605.  asl.l #1,d1
  5606.  swap d1
  5607. ; ext.l d1
  5608. ; divs #3,d1
  5609.  move.l d1,(a1)+
  5610.  
  5611.  tst.w d1
  5612.  bgt.s ptnotbehind
  5613.  tst.w d2
  5614.  bgt.s onrightsomewhere
  5615.  move.w #0,d2
  5616.  bra putin
  5617. onrightsomewhere:
  5618.  move.w RIGHTX,d2
  5619.  bra putin
  5620. ptnotbehind:
  5621.  
  5622.  divs d1,d2
  5623.  add.w MIDDLEX,d2
  5624. putin:
  5625.  move.w d2,(a2)+
  5626.  
  5627.  dbra d7,pointrotlop2
  5628. outofpointrot:
  5629.   rts
  5630.  
  5631.  
  5632. BIGALL:
  5633.  
  5634. pointrotlop2B:
  5635.  move.w (a3)+,d0
  5636.  sub.w d4,d0
  5637.  move.w d0,d2
  5638.  move.w (a3)+,d1
  5639.  sub.w d5,d1
  5640.  muls d6,d2
  5641.  swap d6
  5642.  move.w d1,d3
  5643.  muls d6,d3
  5644.  sub.l d3,d2
  5645.  add.l d2,d2
  5646.  swap d2
  5647.  ext.l d2
  5648.  asl.l #7,d2
  5649.  add.l xwobble,d2
  5650.  move.l d2,(a1)+
  5651.  
  5652.  muls d6,d0
  5653.  swap d6
  5654.  muls d6,d1
  5655.  add.l d0,d1
  5656.  asl.l #2,d1
  5657.  swap d1
  5658.  ext.l d1
  5659.  divs #3,d1
  5660.  move.l d1,(a1)+
  5661.  
  5662.  tst.w d1
  5663.  bgt.s ptnotbehindB
  5664.  tst.w d2
  5665.  bgt.s onrightsomewhereB
  5666.  move.w #0,d2
  5667.  bra putinB
  5668. onrightsomewhereB:
  5669.  move.w RIGHTX,d2
  5670.  bra putinB
  5671. ptnotbehindB:
  5672.  
  5673.  divs d1,d2
  5674.  add.w MIDDLEX,d2
  5675. putinB:
  5676.  move.w d2,(a2)+
  5677.  
  5678.  dbra d7,pointrotlop2B
  5679.   rts
  5680.  
  5681.  
  5682. ONLYTHELONELY:
  5683.  
  5684.  move.w sinval,d6
  5685.  swap d6
  5686.  move.w cosval,d6
  5687.  
  5688.  move.l PointsToRotatePtr,a0
  5689.  move.l Points,a3
  5690.  move.l #Rotated,a1
  5691.  move.l #OnScreen,a2
  5692.  move.w xoff,d4
  5693.  move.w zoff,d5
  5694.  
  5695. ; move.w #$c40,$dff106
  5696. ; move.w #$f00,$dff180
  5697.  
  5698.  tst.b FULLSCR
  5699.  bne BIGLONELY
  5700.  
  5701. pointrotlop:
  5702.  move.w (a0)+,d7
  5703.  blt outofpointrot
  5704.  
  5705.  move.w (a3,d7*4),d0
  5706.  sub.w d4,d0
  5707.  move.w d0,d2
  5708.  move.w 2(a3,d7*4),d1
  5709.  sub.w d5,d1
  5710.  muls d6,d2
  5711.  swap d6
  5712.  move.w d1,d3
  5713.  muls d6,d3
  5714.  sub.l d3,d2
  5715.  add.l d2,d2
  5716.  swap d2
  5717.  ext.l d2
  5718.  asl.l #7,d2
  5719.  add.l xwobble,d2
  5720.  move.l d2,(a1,d7*8)
  5721.  
  5722.  muls d6,d0
  5723.  swap d6
  5724.  muls d6,d1
  5725.  add.l d0,d1
  5726.  asl.l #1,d1
  5727.  swap d1
  5728. ; ext.l d1
  5729. ; divs #3,d1
  5730.  move.l d1,4(a1,d7*8)
  5731.  
  5732.  tst.w d1
  5733.  bgt.s .ptnotbehind
  5734.  tst.w d2
  5735.  bgt.s .onrightsomewhere
  5736.  move.w #0,d2
  5737.  bra .putin
  5738. .onrightsomewhere:
  5739.  move.w RIGHTX,d2
  5740.  bra .putin
  5741. .ptnotbehind:
  5742.  
  5743.  divs d1,d2
  5744.  add.w MIDDLEX,d2
  5745. .putin:
  5746.  move.w d2,(a2,d7*2)
  5747.  
  5748.  bra pointrotlop
  5749.  
  5750. ; move.w #$c40,$dff106
  5751. ; move.w #$ff0,$dff180
  5752.  
  5753.  rts
  5754.  
  5755. BIGLONELY:
  5756.  
  5757. .pointrotlop:
  5758.  move.w (a0)+,d7
  5759.  blt.s .outofpointrot
  5760.  
  5761.  move.w (a3,d7*4),d0
  5762.  sub.w d4,d0
  5763.  move.w d0,d2
  5764.  move.w 2(a3,d7*4),d1
  5765.  sub.w d5,d1
  5766.  muls d6,d2
  5767.  swap d6
  5768.  move.w d1,d3
  5769.  muls d6,d3
  5770.  sub.l d3,d2
  5771.  add.l d2,d2
  5772.  swap d2
  5773.  ext.l d2
  5774.  asl.l #7,d2
  5775.  add.l xwobble,d2
  5776.  move.l d2,(a1,d7*8)
  5777.  
  5778.  muls d6,d0
  5779.  swap d6
  5780.  muls d6,d1
  5781.  add.l d0,d1
  5782.  asl.l #2,d1
  5783.  swap d1
  5784.  ext.l d1
  5785.  divs #3,d1
  5786.  move.l d1,4(a1,d7*8)
  5787.  
  5788.  tst.w d1
  5789.  bgt.s .ptnotbehind
  5790.  tst.w d2
  5791.  bgt.s .onrightsomewhere
  5792.  move.w #0,d2
  5793.  bra .putin
  5794. .onrightsomewhere:
  5795.  move.w RIGHTX,d2
  5796.  bra .putin
  5797. .ptnotbehind:
  5798.  
  5799.  divs d1,d2
  5800.  add.w MIDDLEX,d2
  5801. .putin:
  5802.  move.w d2,(a2,d7*2)
  5803.  
  5804.  bra .pointrotlop
  5805.  
  5806. .outofpointrot:
  5807. ; move.w #$c40,$dff106
  5808. ; move.w #$ff0,$dff180
  5809.  
  5810.  rts
  5811.  
  5812.  
  5813. PLR1_ObjDists
  5814.  ds.w 250
  5815. PLR2_ObjDists
  5816.  ds.w 250
  5817.  
  5818. CalcPLR1InLine:
  5819.  
  5820.  move.w PLR1_sinval,d5
  5821.  move.w PLR1_cosval,d6
  5822.  move.l ObjectData,a4
  5823.  move.l ObjectPoints,a0
  5824.  move.w NumObjectPoints,d7
  5825.  move.l #PLR1_ObsInLine,a2
  5826.  move.l #PLR1_ObjDists,a3
  5827.  
  5828. .objpointrotlop:
  5829.  
  5830.  cmp.b #3,16(a4)
  5831.  beq.s .itaux
  5832.  
  5833.  move.w (a0),d0
  5834.  sub.w PLR1_xoff,d0
  5835.  move.w 4(a0),d1
  5836.  addq #8,a0
  5837.  
  5838.  tst.w 12(a4)
  5839.  blt .noworkout
  5840.  
  5841.  moveq #0,d2
  5842.  move.b 16(a4),d2
  5843.  ;move.l #ColBoxTable,a6
  5844.  ;lea (a6,d2.w*8),a6
  5845.  
  5846.  sub.w PLR1_zoff,d1
  5847.  move.w d0,d2
  5848.  muls d6,d2
  5849.  move.w d1,d3
  5850.  muls d5,d3
  5851.  sub.l d3,d2
  5852.  add.l d2,d2
  5853.  
  5854.  bgt.s .okh
  5855.  neg.l d2
  5856. .okh:
  5857.  swap d2
  5858.  
  5859.  muls d5,d0
  5860.  muls d6,d1
  5861.  add.l d0,d1
  5862.  asl.l #2,d1
  5863.  swap d1
  5864.  moveq #0,d3
  5865.  
  5866.  tst.w d1
  5867.  ble.s .notinline
  5868.  asr.w #1,d2
  5869.  cmp.w #80,d2
  5870.  bgt.s .notinline
  5871.  
  5872.  st d3
  5873. .notinline
  5874.  move.b d3,(a2)+
  5875.  
  5876.  move.w d1,(a3)+
  5877.  
  5878.  add.w #64,a4
  5879.  dbra d7,.objpointrotlop
  5880.  
  5881.  rts
  5882.  
  5883. .itaux:
  5884.  add.w #64,a4
  5885.  bra .objpointrotlop
  5886.  
  5887. .noworkout:
  5888.  move.b #0,(a2)+
  5889.  move.w #0,(a3)+
  5890.  add.w #64,a4
  5891.  dbra d7,.objpointrotlop
  5892.  rts
  5893.  
  5894.  
  5895. CalcPLR2InLine:
  5896.  
  5897.  move.w PLR2_sinval,d5
  5898.  move.w PLR2_cosval,d6
  5899.  move.l ObjectData,a4
  5900.  move.l ObjectPoints,a0
  5901.  move.w NumObjectPoints,d7
  5902.  move.l #PLR2_ObsInLine,a2
  5903.  move.l #PLR2_ObjDists,a3
  5904.  
  5905. .objpointrotlop:
  5906.  
  5907.  cmp.b #3,16(a4)
  5908.  beq.s .itaux
  5909.  
  5910.  move.w (a0),d0
  5911.  sub.w PLR2_xoff,d0
  5912.  move.w 4(a0),d1
  5913.  addq #8,a0
  5914.  
  5915.  tst.w 12(a4)
  5916.  blt .noworkout
  5917.  
  5918.  moveq #0,d2
  5919.  move.b 16(a4),d2
  5920. ; move.l #ColBoxTable,a6
  5921. ; lea (a6,d2.w*8),a6
  5922.  
  5923.  sub.w PLR2_zoff,d1
  5924.  move.w d0,d2
  5925.  muls d6,d2
  5926.  move.w d1,d3
  5927.  muls d5,d3
  5928.  sub.l d3,d2
  5929.  add.l d2,d2
  5930.  
  5931.  bgt.s .okh
  5932.  neg.l d2
  5933. .okh:
  5934.  swap d2
  5935.  
  5936.  muls d5,d0
  5937.  muls d6,d1
  5938.  add.l d0,d1
  5939.  asl.l #2,d1
  5940.  swap d1
  5941.  moveq #0,d3
  5942.  
  5943.  tst.w d1
  5944.  ble.s .notinline
  5945.  asr.w #1,d2
  5946.  cmp.w (a6),d2
  5947.  bgt.s .notinline
  5948.  
  5949.  st d3
  5950. .notinline
  5951.  move.b d3,(a2)+
  5952.  
  5953.  move.w d1,(a3)+
  5954.  
  5955.  add.w #64,a4
  5956.  dbra d7,.objpointrotlop
  5957.  
  5958.  rts
  5959.  
  5960. .itaux:
  5961.  add.w #64,a4
  5962.  bra .objpointrotlop
  5963.  
  5964. .noworkout:
  5965.  move.w #0,(a3)+
  5966.  move.b #0,(a2)+
  5967.  add.w #64,a4
  5968.  dbra d7,.objpointrotlop
  5969.  rts
  5970.  
  5971.  
  5972. RotateObjectPts:
  5973.  
  5974.  move.w sinval,d5
  5975.  move.w cosval,d6
  5976.  
  5977.  move.l ObjectData,a4
  5978.  move.l ObjectPoints,a0
  5979.  move.w NumObjectPoints,d7
  5980.  move.l #ObjRotated,a1
  5981.  
  5982.  tst.b FULLSCR
  5983.  bne BIGOBJPTS
  5984.  
  5985. .objpointrotlop:
  5986.  
  5987.  cmp.b #3,16(a4)
  5988.  beq.s .itaux
  5989.  
  5990.  move.w (a0),d0
  5991.  sub.w xoff,d0
  5992.  move.w 4(a0),d1
  5993.  addq #8,a0
  5994.  
  5995.  tst.w 12(a4)
  5996.  blt .noworkout
  5997.  
  5998.  sub.w zoff,d1
  5999.  move.w d0,d2
  6000.  muls d6,d2
  6001.  move.w d1,d3
  6002.  muls d5,d3
  6003.  sub.l d3,d2
  6004.  
  6005.  
  6006.  add.l d2,d2
  6007.  swap d2
  6008.  move.w d2,(a1)+
  6009.  
  6010.  muls d5,d0
  6011.  muls d6,d1
  6012.  add.l d0,d1
  6013.  asl.l #2,d1
  6014.  swap d1
  6015. ; ext.l d1
  6016. ; divs #3,d1
  6017.  moveq #0,d3
  6018.  
  6019.  move.w d1,(a1)+
  6020.  ext.l d2
  6021.  asl.l #7,d2
  6022.  add.l xwobble,d2
  6023.  move.l d2,(a1)+
  6024.  
  6025.  dbra d7,.objpointrotlop
  6026.  
  6027.  rts
  6028.  
  6029. .itaux:
  6030.  add.w #64,a4
  6031.  bra .objpointrotlop
  6032.  
  6033. .noworkout:
  6034.   move.l #0,(a1)+
  6035.   move.l #0,(a1)+
  6036.   add.w #64,a4
  6037.   dbra d7,.objpointrotlop
  6038.   rts
  6039.   
  6040. BIGOBJPTS:
  6041.  
  6042. .objpointrotlop:
  6043.  
  6044.  cmp.b #3,16(a4)
  6045.  beq.s .itaux
  6046.  
  6047.  move.w (a0),d0
  6048.  sub.w xoff,d0
  6049.  move.w 4(a0),d1
  6050.  addq #8,a0
  6051.  
  6052.  tst.w 12(a4)
  6053.  blt .noworkout
  6054.  
  6055.  sub.w zoff,d1
  6056.  move.w d0,d2
  6057.  muls d6,d2
  6058.  move.w d1,d3
  6059.  muls d5,d3
  6060.  sub.l d3,d2
  6061.  
  6062.  
  6063.  add.l d2,d2
  6064.  swap d2
  6065.  move.w d2,(a1)+
  6066.  
  6067.  muls d5,d0
  6068.  muls d6,d1
  6069.  add.l d0,d1
  6070.  asl.l #2,d1
  6071.  swap d1
  6072.  ext.l d1
  6073.  divs #3,d1
  6074.  moveq #0,d3
  6075.  
  6076.  move.w d1,(a1)+
  6077.  ext.l d2
  6078.  asl.l #7,d2
  6079.  add.l xwobble,d2
  6080.  move.l d2,(a1)+
  6081.  sub.l xwobble,d2
  6082.  
  6083.  add.w #64,a4
  6084.  dbra d7,.objpointrotlop
  6085.  
  6086.  rts
  6087.  
  6088. .itaux:
  6089.  add.w #64,a4
  6090.  bra .objpointrotlop
  6091.  
  6092. .noworkout:
  6093.   move.l #0,(a1)+
  6094.   move.l #0,(a1)+
  6095.   add.w #64,a4
  6096.   dbra d7,.objpointrotlop
  6097.   rts
  6098.  
  6099. LightDraw:
  6100.  
  6101.  move.w (a0)+,d0
  6102.  move.w (a0)+,d1
  6103.  move.l #Rotated,a1
  6104.  move.w 6(a1,d0.w*8),d2
  6105.  ble.s oneendbehind
  6106.  move.w 6(a1,d1.w*8),d3
  6107.  bgt.s bothendsinfront
  6108.  
  6109. oneendbehind:
  6110.  rts
  6111. bothendsinfront:
  6112.  
  6113.  move.l #OnScreen,a2
  6114.  move.w (a2,d0.w*2),d0
  6115.  bge.s okleftend
  6116.  moveq #0,d0
  6117. okleftend:
  6118.  move.w (a2,d1.w*2),d1
  6119.  bgt.s somevis
  6120.  rts
  6121. somevis:
  6122.  cmp.w RIGHTX,d0
  6123.  blt.s somevis2
  6124.  rts
  6125. somevis2:
  6126.  cmp.w RIGHTX,d1
  6127.  blt.s okrightend
  6128.  move.w RIGHTX,d1
  6129.  subq #1,d1
  6130. okrightend:
  6131.  
  6132.  sub.w d0,d1
  6133.  blt.s wrongbloodywayround
  6134.  move.l #brightentab,a4
  6135.  move.l #objintocop,a1
  6136.  lea (a1,d0.w*2),a1
  6137.  
  6138.  move.l frompt,a3
  6139.  move.w #104*4,d6
  6140.  move.w #79,d2
  6141. lacross:
  6142.  move.w d2,d3
  6143.  move.l a3,a2
  6144.  adda.w (a1)+,a2
  6145. ldown:
  6146.  add.w d6,a2
  6147.  move.w (a2),d7
  6148.  move.w (a4,d7.w*2),(a2)
  6149.  dbra d3,ldown
  6150.  dbra d1,lacross
  6151.  
  6152. wrongbloodywayround:
  6153.  
  6154.  rts
  6155.  
  6156. FaceToPlace: dc.w 0
  6157.  
  6158. Cheese:
  6159.  dc.w 4,15
  6160.  
  6161. FacesList:
  6162.  dc.w 0,4*4
  6163.  dc.w 1,2*4
  6164.  dc.w 0,2*4
  6165.  dc.w 2,2*4
  6166.  dc.w 0,2*4
  6167.  dc.w 1,3*4
  6168.  dc.w 0,2*4
  6169.  dc.w 2,3*4
  6170.  dc.w 0,5*4
  6171.  dc.w 1,2*4
  6172.  dc.w 0,2*4
  6173.  dc.w 2,2*4
  6174.  dc.w 0,2*4
  6175.  dc.w 1,2*4
  6176.  dc.w 0,2*4
  6177.  dc.w 2,3*4
  6178.  dc.w 0,1*4
  6179.  dc.w 1,3*4
  6180.  dc.w 0,1*4
  6181.  dc.w 2,3*4
  6182.  dc.w 0,1*4
  6183.  
  6184. EndOfFacesList:
  6185.  
  6186. FacesPtr:
  6187.  dc.l FacesList
  6188. FacesCounter:
  6189.  dc.w 0
  6190. Expression:
  6191.  dc.w 0
  6192.  
  6193.  
  6194. Energy:
  6195.  dc.w 191
  6196. OldEnergy:
  6197.  dc.w 191
  6198. Ammo: dc.w 63
  6199. OldAmmo: dc.w 63
  6200.  
  6201. FullEnergy:
  6202. ; move.w #127,Energy
  6203. ; move.w #127,OldEnergy
  6204. ; move.l #health,a0
  6205. ; move.l #borders,a1
  6206. ; add.l #25*8*2+6,a1
  6207. ; lea 2592(a1),a2
  6208. ; move.w #127,d0
  6209. ;PutInFull:
  6210. ; move.b (a0)+,(a1)
  6211. ; move.b (a0)+,8(a1)
  6212. ; add.w #16,a1
  6213. ; move.b (a0)+,(a2)
  6214. ; move.b (a0)+,8(a2)
  6215. ; add.w #16,a2
  6216. ; dbra d0,PutInFull
  6217.  
  6218.  rts
  6219.  
  6220. ;EnergyBar:
  6221.  
  6222.  move.w Energy,d0
  6223.  bgt.s .noeneg
  6224.  move.w #0,d0
  6225. .noeneg:
  6226.  move.w d0,Energy
  6227.  
  6228.  cmp.w OldEnergy,d0
  6229.  bne.s gottochange
  6230.  
  6231. NoChange
  6232.  rts
  6233.  
  6234. gottochange:
  6235.   
  6236.  blt LessEnergy
  6237.  cmp.w #127,Energy
  6238.  blt.s NotMax
  6239.  move.w #127,Energy
  6240. NotMax:
  6241.  
  6242.  move.w Energy,d0
  6243.  move.w OldEnergy,d2
  6244.  sub.w d0,d2
  6245.  beq.s NoChange    
  6246.  neg.w d2
  6247.  
  6248.  move.w #127,d3
  6249.  sub.w d0,d3
  6250.  
  6251.  move.l #health,a0
  6252.  lea (a0,d3.w*4),a0
  6253. ; move.l #borders+25*16+6,a1
  6254.  lsl.w #4,d3
  6255.  add.w d3,a1
  6256.  lea 2592(a1),a2
  6257.  
  6258. EnergyRise:
  6259.  move.b (a0)+,(a1)
  6260.  move.b (a0)+,8(a1)
  6261.  add.w #16,a1
  6262.  move.b (a0)+,(a2)
  6263.  move.b (a0)+,8(a2)
  6264.  add.w #16,a2
  6265.  subq #1,d2
  6266.  bgt.s EnergyRise
  6267.  
  6268.  move.w Energy,OldEnergy
  6269.  
  6270.  rts 
  6271.  
  6272. LessEnergy: 
  6273.  move.w OldEnergy,d2
  6274.  sub.w d0,d2
  6275.  
  6276.  move.w #127,d3
  6277.  sub.w OldEnergy,d3
  6278.  
  6279. ; move.l #borders+25*16+6,a1
  6280.  asl.w #4,d3
  6281.  add.w d3,a1
  6282.  lea 2592(a1),a2
  6283.  
  6284. EnergyDrain:
  6285.  move.b #0,(a1)
  6286.  move.b #0,8(a1)
  6287.  move.b #0,(a2)
  6288.  move.b #0,8(a2)
  6289.  add.w #16,a1
  6290.  add.w #16,a2
  6291.  subq #1,d2
  6292.  bgt.s EnergyDrain
  6293.  
  6294.  move.w Energy,OldEnergy
  6295.  
  6296.  rts 
  6297.  
  6298. firstdigit: dc.b 0
  6299. secdigit: dc.b 0
  6300. thirddigit: dc.b 0
  6301.  
  6302.  even
  6303.  
  6304. gunny: dc.w 0
  6305.  
  6306. AmmoBar:
  6307.  
  6308. * Do guns first.
  6309.  
  6310.  move.l #borderchars,a4
  6311.  move.b p1_gunselected,d0 
  6312.  move.l #PLAYERONEGUNS,a5
  6313.  cmp.b #'s',mors
  6314.  bne.s .notplr2
  6315.  move.l #PLAYERTWOGUNS,a5
  6316.  move.b p2_gunselected,d0
  6317. .notplr2:
  6318.  
  6319.  move.b d0,gunny
  6320.  
  6321.  move.w #9,d2
  6322.  moveq #0,d0
  6323. putingunnums:
  6324.  move.w #4,d1
  6325.  move.l a4,a0
  6326.  cmp.b gunny,d0
  6327.  bne.s .notsel
  6328.  add.l #5*10*8*2,a0
  6329.  addq #2,a5
  6330.  bra.s .donesel
  6331. .notsel:
  6332.  tst.w (a5)+
  6333.  beq.s .donesel
  6334.  add.l #5*10*8,a0
  6335. .donesel:
  6336.  move.l SCRNDRAWPT,a1
  6337.  add.w d0,a1
  6338.  add.l #3+(8*40),a1
  6339.  bsr DRAWDIGIT
  6340.  addq #1,d0
  6341.  dbra d2,putingunnums
  6342.  
  6343.  move.w Ammo,d0
  6344.  ext.l d0
  6345.  divs #10,d0
  6346.  swap d0
  6347.  move.b d0,thirddigit
  6348.  swap d0
  6349.  ext.l d0
  6350.  divs #10,d0
  6351.  move.b d0,firstdigit
  6352.  swap d0
  6353.  move.b d0,secdigit
  6354.  
  6355.  move.l #borderchars+15*8*10,a0
  6356.  cmp.w #10,Ammo
  6357.  blt.s .notsmallamo
  6358.  add.l #7*8*10,a0
  6359. .notsmallamo:
  6360.  
  6361.  move.l SCRNDRAWPT,a1
  6362.  add.l #20+6*40,a1
  6363.  move.b firstdigit,d0
  6364.  move.w #6,d1
  6365.  bsr DRAWDIGIT
  6366.  
  6367.  move.l SCRNDRAWPT,a1
  6368.  add.l #21+6*40,a1
  6369.  move.b secdigit,d0
  6370.  move.w #6,d1
  6371.  bsr DRAWDIGIT
  6372.  
  6373.  move.l SCRNDRAWPT,a1
  6374.  add.l #22+6*40,a1
  6375.  move.b thirddigit,d0
  6376.  move.w #6,d1
  6377.  bsr DRAWDIGIT
  6378.  
  6379.  rts
  6380.  
  6381. EnergyBar:
  6382.  move.w Energy,d0
  6383.  bge.s .okpo
  6384.  moveq #0,d0 
  6385. .okpo:
  6386.  
  6387.  ext.l d0
  6388.  divs #10,d0
  6389.  swap d0
  6390.  move.b d0,thirddigit
  6391.  swap d0
  6392.  ext.l d0
  6393.  divs #10,d0
  6394.  move.b d0,firstdigit
  6395.  swap d0
  6396.  move.b d0,secdigit
  6397.  
  6398.  move.l #borderchars+15*8*10,a0
  6399.  cmp.w #10,Energy
  6400.  blt.s .notsmallamo
  6401.  add.l #7*8*10,a0
  6402. .notsmallamo:
  6403.  
  6404.  move.l SCRNDRAWPT,a1
  6405.  add.l #34+6*40,a1
  6406.  move.b firstdigit,d0
  6407.  move.w #6,d1
  6408.  bsr DRAWDIGIT
  6409.  
  6410.  move.l SCRNDRAWPT,a1
  6411.  add.l #35+6*40,a1
  6412.  move.b secdigit,d0
  6413.  move.w #6,d1
  6414.  bsr DRAWDIGIT
  6415.  
  6416.  move.l SCRNDRAWPT,a1
  6417.  add.l #36+6*40,a1
  6418.  move.b thirddigit,d0
  6419.  move.w #6,d1
  6420.  bsr DRAWDIGIT
  6421.  
  6422. ; move.l SCRNSHOWPT,a1
  6423. ; add.l #34+238*40,a1
  6424. ; move.b firstdigit,d0
  6425. ; move.w #6,d1
  6426. ; bsr DRAWDIGIT
  6427.  
  6428. ; move.l SCRNSHOWPT,a1
  6429. ; add.l #35+238*40,a1
  6430. ; move.b secdigit,d0
  6431. ; move.w #6,d1
  6432. ; bsr DRAWDIGIT
  6433.  
  6434. ; move.l SCRNSHOWPT,a1
  6435. ; add.l #36+238*40,a1
  6436. ; move.b thirddigit,d0
  6437. ; move.w #6,d1
  6438. ; bsr DRAWDIGIT
  6439.  
  6440.  
  6441.  rts
  6442.  
  6443.  
  6444. DRAWDIGIT:
  6445.  ext.w d0
  6446.  lea (a0,d0.w),a2
  6447. charlines:
  6448.  lea 16*40*3(a1),a3 
  6449.  move.b (a2),(a1)
  6450.  move.b 10(a2),16*40(a1)
  6451.  move.b 20(a2),16*40*2(a1)
  6452.  move.b 30(a2),(a3)
  6453.  move.b 40(a2),16*40(a3)
  6454.  move.b 50(a2),16*40*2(a3)
  6455.  lea 16*40*3(a3),a3
  6456.  move.b 60(a2),(a3)
  6457.  move.b 70(a2),16*40(a3)
  6458.  
  6459.  add.w #10*8,a2
  6460.  add.w #40,a1
  6461.  dbra d1,charlines
  6462.  
  6463.  rts
  6464.  
  6465. borderchars: incbin "ab3:includes/bordercharsRAW"
  6466.  
  6467. NARRATOR:
  6468.  
  6469. ; sub.w #1,NARRTIME
  6470. ; bge .NOCHARYET
  6471. ; move.w #3,NARRTIME
  6472.  
  6473.  move.l #SCROLLSCRN,d1
  6474.  move.w d1,scroll
  6475.  swap d1
  6476.  move.w d1,scrolh
  6477.  
  6478.  move.w SCROLLTIMER,d0
  6479.  subq #1,d0
  6480.  move.w d0,SCROLLTIMER
  6481.  cmp.w #40,d0
  6482.  bge .NOCHARYET
  6483.  tst.w d0
  6484.  bge.s .okcha
  6485.  
  6486.  move.w #150,SCROLLTIMER
  6487.  bra .NOCHARYET
  6488.  
  6489. .okcha:
  6490.  
  6491.  move.l #SCROLLSCRN,a0
  6492.  add.w SCROLLXPOS,a0
  6493.  
  6494.  moveq #1,d7
  6495. .doachar: 
  6496.  
  6497.  move.l SCROLLPOINTER,a1
  6498.  moveq #0,d1
  6499.  move.b (a1)+,d1    ; character
  6500.  move.l a1,d2
  6501.  cmp.l ENDSCROLL,d2
  6502.  blt.s .notrestartscroll
  6503.  move.l #BLANKSCROLL,a1
  6504.  move.l #BLANKSCROLL+80,ENDSCROLL
  6505. .notrestartscroll
  6506.  move.l a1,SCROLLPOINTER
  6507.  
  6508.  move.l #SCROLLCHARS,a1
  6509.  asl.w #3,d1
  6510.  add.w d1,a1
  6511.  
  6512.  move.b (a1)+,(a0)
  6513.  move.b (a1)+,80(a0)
  6514.  move.b (a1)+,80*2(a0)
  6515.  move.b (a1)+,80*3(a0)
  6516.  move.b (a1)+,80*4(a0)
  6517.  move.b (a1)+,80*5(a0)
  6518.  move.b (a1)+,80*6(a0)
  6519.  move.b (a1)+,80*7(a0)
  6520.  
  6521.  addq #1,a0
  6522.  dbra d7,.doachar
  6523.  
  6524.  move.w SCROLLXPOS,d0
  6525.  addq #2,d0
  6526.  move.w d0,SCROLLXPOS
  6527.  cmp.w #80,d0
  6528.  blt .NOCHARYET
  6529.  move.w #0,SCROLLXPOS
  6530.  
  6531. .NOCHARYET:
  6532.  rts
  6533.  
  6534. ; cmp.w OldAmmo,d0
  6535. ; bne.s .gottochange
  6536. ; 
  6537.  
  6538. NARRTIME: dc.w 5
  6539.  
  6540. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6541.  
  6542. .NoChange
  6543.  rts
  6544.  
  6545. .gottochange:
  6546.   
  6547.  blt LessAmmo
  6548.  cmp.w #63,Ammo
  6549.  blt.s .NotMax
  6550.  move.w #63,Ammo
  6551. .NotMax:
  6552.  
  6553.  move.w Ammo,d0
  6554.  move.w OldAmmo,d2
  6555.  sub.w d0,d2
  6556.  beq.s .NoChange
  6557.  neg.w d2
  6558.  
  6559.  move.w #63,d3
  6560.  sub.w d0,d3
  6561.  
  6562.  move.l #Ammunition,a0
  6563.  lea (a0,d3.w*8),a0
  6564. ; move.l #borders+5184+25*16+1,a1
  6565.  lsl.w #5,d3
  6566.  add.w d3,a1
  6567.  lea 2592(a1),a2
  6568.  
  6569. AmmoRise:
  6570.  move.b (a0)+,(a1)
  6571.  move.b (a0)+,8(a1)
  6572.  add.w #16,a1
  6573.  move.b (a0)+,(a2)
  6574.  move.b (a0)+,8(a2)
  6575.  add.w #16,a2
  6576.  move.b (a0)+,(a1)
  6577.  move.b (a0)+,8(a1)
  6578.  add.w #16,a1
  6579.  move.b (a0)+,(a2)
  6580.  move.b (a0)+,8(a2)
  6581.  add.w #16,a2
  6582.  subq #1,d2
  6583.  bgt.s AmmoRise
  6584.  
  6585.  move.w Ammo,OldAmmo
  6586.  
  6587.  rts 
  6588.  
  6589.  
  6590. LessAmmo: 
  6591.  move.w OldAmmo,d2
  6592.  sub.w d0,d2
  6593.  
  6594.  move.w #63,d3
  6595.  sub.w OldAmmo,d3
  6596.  
  6597. ; move.l #borders++5184+25*16+1,a1
  6598.  asl.w #5,d3
  6599.  add.w d3,a1
  6600.  lea 2592(a1),a2
  6601.  
  6602. AmmoDrain:
  6603.  move.b #0,(a1)
  6604.  move.b #0,8(a1)
  6605.  move.b #0,(a2)
  6606.  move.b #0,8(a2)
  6607.  add.w #16,a1
  6608.  add.w #16,a2
  6609.  move.b #0,(a1)
  6610.  move.b #0,8(a1)
  6611.  move.b #0,(a2)
  6612.  move.b #0,8(a2)
  6613.  add.w #16,a1
  6614.  add.w #16,a2
  6615.  subq #1,d2
  6616.  bgt.s AmmoDrain
  6617.  
  6618.  move.w Ammo,OldAmmo
  6619.  
  6620.  rts 
  6621.  
  6622. nulop:
  6623.  move.w #$0010,$dff000+intreq
  6624.  rte
  6625.  
  6626. doanything: dc.w 0
  6627.  
  6628. end:
  6629. ;     _break #0
  6630.  
  6631.  
  6632.  move.l #$dff000,a6
  6633.  move.w #$f,$dff000+dmacon
  6634. waitfortop22:
  6635.  btst.b #0,intreqrl(a6)
  6636.  beq waitfortop22
  6637. waitfortop222:
  6638.  btst.b #0,intreqrl(a6)
  6639.  beq waitfortop222
  6640.  
  6641.  clr.b dosounds
  6642.  clr.b doanything
  6643.  
  6644.  move.w PLAYERONEHEALTH,Energy
  6645.  cmp.b #'s',mors
  6646.  bne.s .notsl
  6647.  move.w PLAYERTWOHEALTH,Energy
  6648. .notsl:
  6649.  
  6650.  move.l drawpt,d0
  6651.  move.l olddrawpt,drawpt
  6652.  move.l d0,olddrawpt
  6653.  
  6654. ; cmp.b #'b',Prefsfile+3
  6655. ; bne.s .noback
  6656. ; jsr mt_end
  6657. ;.noback
  6658.  
  6659.  tst.w Energy
  6660.  bgt.s wevewon
  6661.  move.w #0,Energy
  6662.  bsr EnergyBar
  6663.  
  6664.  move.l #gameover,mt_data
  6665.  st UseAllChannels
  6666.  clr.b reachedend
  6667.  jsr mt_init
  6668. playgameover:
  6669.  move.l #$dff000,a6
  6670. waitfortop2:
  6671.  
  6672.     
  6673.  btst.b #0,intreqrl(a6)
  6674.  beq waitfortop2
  6675.  move.w #$1,intreq(a6)
  6676.  
  6677.     
  6678.  jsr mt_music
  6679.  
  6680.  
  6681.     
  6682.  tst.b reachedend
  6683.  beq.s playgameover
  6684.  
  6685.  bra wevelost
  6686.  
  6687.  
  6688. wevewon:
  6689.  
  6690.  
  6691.  bsr EnergyBar
  6692.  
  6693.  cmp.b #'n',mors
  6694.  bne.s .nonextlev
  6695.  add.w #1,MAXLEVEL
  6696.  st FINISHEDLEVEL
  6697. .nonextlev:
  6698.  
  6699.  move.l #welldone,mt_data
  6700.  st UseAllChannels
  6701.  clr.b reachedend
  6702.  
  6703.  jsr mt_init
  6704. playwelldone:
  6705.  move.l #$dff000,a6
  6706. waitfortop3:
  6707.  btst.b #0,intreqrl(a6)
  6708.  beq waitfortop3
  6709.  move.w #$1,intreq(a6)
  6710.  
  6711.  jsr mt_music
  6712.  
  6713.  tst.b reachedend
  6714.  beq.s playwelldone
  6715.  
  6716. wevelost:
  6717.  
  6718.  PROTICHECK a0
  6719.  
  6720.  jmp closeeverything 
  6721.  
  6722. endnomusic
  6723.  clr.b doanything
  6724.  
  6725. ; cmp.b #'b',Prefsfile+3
  6726. ; bne.s .noback
  6727. ; jsr mt_end
  6728. ;.noback
  6729. *******************************
  6730. ; cmp.b #'n',mors
  6731. ; bne.s .nonextlev
  6732. ; cmp.w #15,MAXLEVEL
  6733. ; bge.s .nonextlev
  6734. ; add.w #1,MAXLEVEL
  6735. ; st FINISHEDLEVEL
  6736. ;.nonextlev:
  6737. ******************************
  6738.  
  6739.  jmp closeeverything
  6740.  
  6741. do32:
  6742.  move.w #31,d7
  6743.  move.w #$180,d1
  6744. across:
  6745.  move.w d1,(a1)+
  6746.  move.w d1,(a3)+
  6747.  move.w #0,(a1)+ 
  6748.  move.w #0,(a3)+
  6749.  add.w #2,d1
  6750.  dbra d7,across
  6751.  rts
  6752.  
  6753. string:
  6754.     dc.b    'credits',0
  6755.  
  6756. ENDGAMESCROLL:
  6757.  
  6758.     move.l    4.w,a6
  6759.     move.l    #string,d1
  6760.     moveq    #0,d2
  6761.     moveq    #0,d3
  6762.     jsr    _LVOExecute(a6)
  6763.  
  6764. ; include "endscroll.s"
  6765.  
  6766. ***********************************
  6767.  include "ab3:CHEESESAUCE/CD32JOY"
  6768.  
  6769.  
  6770.  
  6771. *************************************
  6772. * Set left and right clip values
  6773. *************************************
  6774.  
  6775.  
  6776.  
  6777. NEWsetlclip:
  6778.  move.l #OnScreen,a1
  6779.  move.l #Rotated,a2
  6780.  move.l CONNECT_TABLE,a3
  6781.  move.l Points,a4
  6782.  
  6783.  move.w (a0),d0
  6784.  bge.s .notignoreleft
  6785.  
  6786. ; move.l #0,(a6)
  6787.  
  6788.  bra .leftnotoktoclip
  6789. .notignoreleft:
  6790.  
  6791.  move.w 6(a2,d0*8),d3    ; left z val
  6792.  bgt.s .leftclipinfront
  6793.  addq #2,a0
  6794.  rts
  6795.  
  6796.  tst.w 6(a2,d0*8)
  6797.  bgt.s .leftnotoktoclip
  6798. .ignoreboth:
  6799. ; move.l #0,(a6)
  6800. ; move.l #96*65536,4(a6)
  6801.  move.w #0,leftclip
  6802.  move.w RIGHTX,rightclip
  6803.  addq #8,a6
  6804.  addq #2,a0
  6805.  rts
  6806.  
  6807. .leftclipinfront:
  6808.  move.w (a1,d0*2),d1    ; left x on screen
  6809.  move.w (a0),d2
  6810.  move.w 2(a3,d2.w*4),d2
  6811.  move.w (a1,d2.w*2),d2
  6812.  cmp.w d1,d2
  6813.  bgt.s .leftnotoktoclip
  6814.  
  6815.  
  6816. *************************************
  6817.  
  6818.  move.w 2(a3,d0.w*4),d6
  6819.  
  6820.  move.w (a4,d0.w*4),d2
  6821.  move.w 2(a4,d0.w*4),d3
  6822.  move.w (a4,d6.w*4),d4
  6823.  move.w 2(a4,d6.w*4),d5
  6824.  
  6825.  sub.w d2,d4    ;dx
  6826.  sub.w d3,d5    ;dz
  6827.  move.w xoff,d0
  6828.  move.w zoff,d6
  6829.  
  6830.  sub.w d2,d0
  6831.  sub.w d3,d6
  6832.  
  6833.  muls d0,d4
  6834.  muls d6,d5
  6835.  add.l d4,d5
  6836.  bge.s .leftnotoktoclip
  6837.  
  6838. *************************************
  6839.  
  6840.  
  6841.  
  6842. ; move.w d1,(a6)
  6843. ; move.w d3,2(a6)
  6844.  cmp.w leftclip,d1
  6845.  ble.s .leftnotoktoclip
  6846.  move.w d1,leftclip
  6847. .leftnotoktoclip:
  6848.  
  6849.  addq #2,a0
  6850.  
  6851.  rts
  6852.  
  6853. NEWsetrclip
  6854.  move.l #OnScreen,a1
  6855.  move.l #Rotated,a2
  6856.  move.l CONNECT_TABLE,a3
  6857.  move.w (a0),d0
  6858.  bge.s .notignoreright
  6859. ; move.w #96,4(a6)
  6860. ; move.w #0,6(a6)
  6861.  move.w #0,d4
  6862.  bra .rightnotoktoclip
  6863. .notignoreright:
  6864.  move.w 6(a2,d0*8),d4    ; right z val
  6865.  bgt.s .rightclipinfront
  6866. ; move.w #96,4(a6)
  6867. ; move.w #0,6(a6)
  6868.  bra.s .rightnotoktoclip
  6869.  
  6870. .rightclipinfront:
  6871.  move.w (a1,d0*2),d1    ; right x on screen
  6872.  move.w (a0),d2
  6873.  move.w (a3,d2.w*4),d2
  6874.  move.w (a1,d2.w*2),d2
  6875.  cmp.w d1,d2
  6876.  blt.s .rightnotoktoclip
  6877. ; move.w d1,4(a6)
  6878. ; move.w d4,6(a6)
  6879.  
  6880.  
  6881. *************************************
  6882.  
  6883.  move.w (a3,d0.w*4),d6
  6884.  
  6885.  move.w (a4,d0.w*4),d2
  6886.  move.w 2(a4,d0.w*4),d3
  6887.  move.w (a4,d6.w*4),d4
  6888.  move.w 2(a4,d6.w*4),d5
  6889.  
  6890.  sub.w d2,d4    ;dx
  6891.  sub.w d3,d5    ;dz
  6892.  move.w xoff,d0
  6893.  move.w zoff,d6
  6894.  
  6895.  sub.w d2,d0
  6896.  sub.w d3,d6
  6897.  
  6898.  muls d0,d4
  6899.  muls d6,d5
  6900.  add.l d4,d5
  6901.  ble.s .rightnotoktoclip
  6902.  
  6903. *************************************
  6904.  
  6905.  
  6906.  
  6907.  cmp.w rightclip,d1
  6908.  bge.s .rightnotoktoclip
  6909.  addq #1,d1
  6910.  move.w d1,rightclip
  6911. .rightnotoktoclip:
  6912.  addq #8,a6
  6913.  addq #2,a0
  6914.  rts
  6915.  
  6916. FIRSTsetlrclip:
  6917.  move.l #OnScreen,a1
  6918.  move.l #Rotated,a2
  6919.  
  6920.  move.w (a0)+,d0
  6921.  bge.s .notignoreleft
  6922.  bra .leftnotoktoclip
  6923. .notignoreleft:
  6924.  
  6925.  move.w 6(a2,d0*8),d3    ; left z val
  6926.  bgt.s .leftclipinfront
  6927.  
  6928.  move.w (a0),d0
  6929.  blt.s .ignoreboth
  6930.  tst.w 6(a2,d0*8)
  6931.  bgt.s .leftnotoktoclip
  6932. .ignoreboth
  6933.  move.w RIGHTX,rightclip
  6934.  move.w #0,leftclip
  6935.  addq #2,a0
  6936.  rts
  6937.  
  6938. .leftclipinfront:
  6939.  move.w (a1,d0*2),d1    ; left x on screen
  6940.  cmp.w leftclip,d1
  6941.  ble.s .leftnotoktoclip
  6942.  move.w d1,leftclip
  6943. .leftnotoktoclip:
  6944.  
  6945.  move.w (a0)+,d0
  6946.  bge.s .notignoreright
  6947.  move.w #0,d4
  6948.  bra .rightnotoktoclip
  6949. .notignoreright:
  6950.  move.w 6(a2,d0*8),d4    ; right z val
  6951.  ble.s .rightnotoktoclip
  6952.  
  6953. .rightclipinfront:
  6954.  move.w (a1,d0*2),d1    ; right x on screen
  6955.  addq #1,d1
  6956.  cmp.w rightclip,d1
  6957.  bge.s .rightnotoktoclip
  6958.  move.w d1,rightclip
  6959. .rightnotoktoclip:
  6960.  
  6961. ; move.w leftclip,d0
  6962. ; move.w rightclip,d1
  6963. ; cmp.w d0,d1
  6964. ; bge.s .noswap
  6965. ; move.w #192,rightclip
  6966. ; move.w #0,leftclip
  6967. ;.noswap:
  6968.  
  6969.  rts
  6970.  
  6971.  
  6972. leftclip2: dc.w 0
  6973. rightclip2: dc.w 0
  6974. ZoneBright: dc.w 0
  6975.  
  6976. npolys: dc.w 0
  6977.  
  6978. PLR1_fire: dc.b 0
  6979. PLR2_fire: dc.b 0
  6980.  
  6981. *****************************************************
  6982.  
  6983.  
  6984. pastdata:
  6985. ***********************************
  6986. * This routine animates brightnesses.
  6987.  
  6988.  
  6989. liftpt: dc.l liftanimtab
  6990.  
  6991. brightpt:
  6992.  dc.l brightanimtab
  6993.  
  6994.  
  6995. liftanim:
  6996.  rts
  6997.  
  6998. ******************************
  6999.  include "ab3:CHEESESAUCE/objectMove"
  7000.  include "ab3:CHEESESAUCE/newAnims"
  7001.  include "ab3:CHEESESAUCE/airoutine.s"
  7002. ******************************
  7003. startpass:
  7004. ; include "ab3:source_4000/password_reloc.s"
  7005. endpass:
  7006.  
  7007. rotanimpt: dc.w 0
  7008. xradd: dc.w 5
  7009. yradd: dc.w 8
  7010. xrpos: dc.w 320
  7011. yrpos: dc.w 320
  7012.  
  7013. rotanim:
  7014.  rts
  7015.  
  7016. option:
  7017.  dc.l 0,0
  7018.  
  7019. ********** WALL STUFF *******************************
  7020.  
  7021.  include "AB3:CHEESESAUCE/hireswall.s"
  7022.  include "AB3:CHEESESAUCE/hiresgourwall.s"
  7023.  
  7024. *****************************************************
  7025.  
  7026. ******************************************
  7027. * floor polygon
  7028.  
  7029. numsidestd: dc.w 0
  7030. bottomline: dc.w 0
  7031.  
  7032. checkforwater:
  7033.  tst.b usewater
  7034.  beq.s .notwater
  7035.  
  7036.  move.l Roompt,a1
  7037.  move.w (a1),d7
  7038.  cmp.w currzone,d7
  7039.  bne.s .notwater
  7040.  
  7041.  move.b #$f,fillscrnwater
  7042.  
  7043. .notwater:
  7044.  move.w (a0)+,d6    ; sides-1
  7045.  add.w d6,d6
  7046.  add.w d6,a0
  7047.  add.w #4+6,a0
  7048.  rts
  7049.  
  7050.  rts
  7051.  
  7052. ;NewCornerBuff:
  7053. ; ds.l 100
  7054. CLRNOFLOOR: dc.w 0
  7055.  
  7056. itsafloordraw:
  7057.  
  7058. * If D0 =1 then its a floor otherwise (=2) it's
  7059. * a roof.
  7060.  
  7061.  move.w #0,above
  7062.  move.w (a0)+,d6    ; ypos of poly
  7063.  
  7064.  tst.b usewater
  7065.  beq.s .oknon
  7066.  tst.b DOANYWATER
  7067.  beq dontdrawreturn
  7068. .oknon
  7069.  
  7070.  move.w d6,d7
  7071.  ext.l d7
  7072.  asl.l #6,d7
  7073.  cmp.l TOPOFROOM,d7
  7074.  blt checkforwater
  7075.  cmp.l BOTOFROOM,d7
  7076.  bgt.s dontdrawreturn
  7077.  
  7078.  move.w leftclip,d7
  7079.  cmp.w rightclip,d7
  7080.  bge.s dontdrawreturn
  7081.  
  7082.  sub.w flooryoff,d6
  7083.  bgt.s below
  7084.  blt.s aboveplayer
  7085.  
  7086.  tst.b usewater
  7087.  beq.s .notwater
  7088.  
  7089.  move.l Roompt,a1
  7090.  move.w (a1),d7
  7091.  cmp.w currzone,d7
  7092.  
  7093.  bne.s .notwater
  7094.  
  7095.  st fillscrnwater
  7096.  
  7097. .notwater:
  7098.  
  7099.  
  7100. dontdrawreturn:
  7101.  move.w (a0)+,d6    ; sides-1
  7102.  add.w d6,d6
  7103.  add.w d6,a0
  7104.  add.w #4+6,a0
  7105.  rts
  7106. aboveplayer:
  7107.  
  7108.  tst.b usewater
  7109.  beq.s .notwater
  7110.  
  7111.  move.l Roompt,a1
  7112.  move.w (a1),d7
  7113.  cmp.w currzone,d7
  7114.  bne.s .notwater
  7115.  
  7116.  move.b #$f,fillscrnwater
  7117.  
  7118. .notwater:
  7119.  
  7120.  btst #1,d0
  7121.  beq.s dontdrawreturn
  7122.  move.w MIDDLEY,d7
  7123.  sub.w topclip,d7 
  7124.  ble.s dontdrawreturn
  7125.  move.w #1,d0
  7126.  move.w d0,above
  7127.  neg.w d6
  7128.  bra.s notbelow
  7129. below:
  7130.  move.w botclip,d7
  7131.  sub.w MIDDLEY,d7
  7132.  ble.s dontdrawreturn
  7133. notbelow:
  7134.  btst #0,d0
  7135.  beq.s dontdrawreturn
  7136.  move.w d6,distaddr
  7137.  muls #64,d6
  7138.  move.l d6,ypos
  7139.  ext.l d7
  7140.  divs.l d7,d6        ; zpos of bottom
  7141.             ; visible line
  7142.  
  7143.  beq dontdrawreturn
  7144.  
  7145.  cmp.l #32767,d6
  7146.  bgt dontdrawreturn
  7147.             
  7148.  move.w d6,minz
  7149.  move.w d7,bottomline
  7150.  
  7151. ; Go round each point finding out
  7152. ; if it should be visible or not.
  7153.  
  7154.  move.l a0,-(a7)
  7155.  
  7156.  move.w (a0)+,d7    ; number of sides
  7157.  move.l #Rotated,a1
  7158.  move.l #OnScreen,a2
  7159. ; move.l #NewCornerBuff,a3
  7160.  moveq #0,d4
  7161.  moveq #0,d5
  7162.  moveq #0,d6
  7163.  clr.b anyclipping
  7164.  
  7165. cornerprocessloop:
  7166.  
  7167.  move.w (a0)+,d0
  7168.  and.w #$fff,d0
  7169.  move.w 6(a1,d0.w*8),d1
  7170.  ble  .canttell
  7171.  
  7172.  move.w (a2,d0.w*2),d3
  7173.  cmp.w leftclip,d3
  7174.  bgt.s .nol
  7175.  st d4
  7176.  st anyclipping
  7177.  bra.s .nos
  7178. .nol:
  7179.  cmp.w rightclip,d3
  7180.  blt.s .nor
  7181.  st d6
  7182.  st anyclipping
  7183.  bra.s .nos
  7184. .nor:
  7185.  st d5
  7186. .nos:
  7187.  bra .cantell
  7188.  
  7189. .canttell:
  7190.  st d5
  7191.  st anyclipping
  7192.  
  7193. .cantell:
  7194.  
  7195.  
  7196.  dbra d7,cornerprocessloop
  7197.  
  7198.  
  7199.  move.l (a7)+,a0
  7200.  tst.b d5
  7201.  bne.s somefloortodraw
  7202.  eor.b d4,d6
  7203.  bne dontdrawreturn
  7204.  
  7205. somefloortodraw:
  7206.  
  7207.  tst.b gourfloor
  7208.  bne goursides
  7209.  
  7210.  move.w #300,top
  7211.  move.w #-1,bottom
  7212.  move.w #0,drawit
  7213.  move.l #Rotated,a1
  7214.  move.l #OnScreen,a2
  7215.  move.w (a0)+,d7    ; no of sides
  7216. sideloop:
  7217.  move.w minz,d6
  7218.  move.w (a0)+,d1
  7219.  move.w (a0),d3
  7220.  and.w #$fff,d1
  7221.  and.w #$fff,d3
  7222.  
  7223.  move.w 6(a1,d1*8),d4    ;first z
  7224.  cmp.w d6,d4
  7225.  bgt firstinfront
  7226.  move.w 6(a1,d3*8),d5    ; sec z
  7227.  cmp.w d6,d5
  7228.  ble bothbehind
  7229. ** line must be on left and partially behind.
  7230.  sub.w d5,d4
  7231.  move.l (a1,d1*8),d0
  7232.  sub.l (a1,d3*8),d0
  7233.  asr.l #7,d0
  7234.  sub.w d5,d6
  7235.  muls d6,d0    ; new x coord
  7236.  divs d4,d0
  7237.  ext.l d0
  7238.  asl.l #7,d0
  7239.  
  7240.  add.l (a1,d3*8),d0
  7241.  move.w minz,d4
  7242.  move.w (a2,d3*2),d2
  7243.  divs d4,d0
  7244.  add.w MIDDLEX,d0
  7245.  move.l ypos,d3
  7246.  divs d5,d3
  7247.  move.w bottomline,d1 
  7248.  bra lineclipped
  7249.  
  7250. firstinfront:
  7251.  move.w 6(a1,d3*8),d5    ; sec z
  7252.  cmp.w d6,d5
  7253.  bgt bothinfront
  7254. ** line must be on right and partially behind.
  7255.  sub.w d4,d5    ; dz
  7256.  move.l (a1,d3*8),d2
  7257.  sub.l (a1,d1*8),d2    ; dx
  7258.  sub.w d4,d6
  7259.  asr.l #7,d2
  7260.  muls d6,d2    ; new x coord
  7261.  divs d5,d2
  7262.  ext.l d2
  7263.  asl.l #7,d2
  7264.  add.l (a1,d1*8),d2
  7265.  move.w minz,d5
  7266.  move.w (a2,d1*2),d0
  7267.  divs d5,d2
  7268.  add.w MIDDLEX,d2
  7269.  move.l ypos,d1
  7270.  divs d4,d1
  7271.  move.w bottomline,d3 
  7272.  bra lineclipped
  7273.  
  7274. bothinfront:
  7275.  
  7276. * Also, usefully enough, both are on-screen
  7277. * so no bottom clipping is needed.
  7278.  
  7279.  move.w (a2,d1*2),d0    ; first x
  7280.  move.w (a2,d3*2),d2    ; second x
  7281.  move.l ypos,d1
  7282.  move.l d1,d3
  7283.  divs d4,d1        ; first y
  7284.  divs d5,d3        ; second y
  7285. lineclipped:
  7286.  move.l #rightsidetab,a3
  7287.  cmp.w d1,d3
  7288.  beq lineflat
  7289.  st drawit
  7290.  bgt lineonright
  7291.  move.l #leftsidetab,a3
  7292.  exg d1,d3
  7293.  exg d0,d2
  7294.  
  7295.  lea (a3,d1*2),a3
  7296.  
  7297.  cmp.w top(pc),d1
  7298.  bge.s .nonewtop
  7299.  move.w d1,top
  7300. .nonewtop:
  7301.  cmp.w bottom(pc),d3
  7302.  ble.s .nonewbot
  7303.  move.w d3,bottom
  7304. .nonewbot:
  7305.  
  7306.  sub.w d1,d3    ; dy
  7307.  sub.w d0,d2    ; dx
  7308.  
  7309.  blt .linegoingleft
  7310.  
  7311.  ext.l d2
  7312.  divs d3,d2
  7313.  move.w d2,d6
  7314.  swap d2
  7315.  
  7316. ; moveq #0,d6
  7317. ; sub.w d3,d2
  7318. ; blt.s .noco
  7319. ;.makeco
  7320. ; addq #1,d6
  7321. ; sub.w d3,d2
  7322. ; bge.s .makeco
  7323. ;.noco
  7324. ; add.w d3,d2
  7325.  
  7326.  move.w d3,d4
  7327.  move.w d3,d5
  7328.  subq #1,d5
  7329.  move.w d6,d1
  7330.  addq #1,d1
  7331.  
  7332. .pixlopright:
  7333.  move.w d0,(a3)+
  7334.  sub.w d2,d4
  7335.  bge.s .nobigstep
  7336.  add.w d1,d0
  7337.  add.w d3,d4
  7338.  dbra d5,.pixlopright
  7339.  bra lineflat
  7340. .nobigstep
  7341.  add.w d6,d0
  7342.  dbra d5,.pixlopright
  7343.  bra lineflat
  7344.  
  7345. .linegoingleft:
  7346.  
  7347.  neg.w d2
  7348.  
  7349.  ext.l d2
  7350.  divs d3,d2
  7351.  move.w d2,d6
  7352.  swap d2
  7353.  
  7354.  
  7355. ; moveq #0,d6
  7356. ; sub.w d3,d2
  7357. ; blt.s .nocol
  7358. ;.makecol
  7359. ; addq #1,d6
  7360. ; sub.w d3,d2
  7361. ; bge.s .makecol
  7362. ;.nocol
  7363. ; add.w d3,d2
  7364.  
  7365.  
  7366.  
  7367.  move.w d3,d4
  7368.  move.w d3,d5
  7369.  subq #1,d5
  7370.  
  7371.  move.w d6,d1
  7372.  addq #1,d1
  7373.  
  7374. .pixlopleft:
  7375.  sub.w d2,d4
  7376.  bge.s .nobigstepl
  7377.  sub.w d1,d0
  7378.  add.w d3,d4
  7379.  move.w d0,(a3)+
  7380.  dbra d5,.pixlopleft
  7381.  bra lineflat
  7382.  
  7383. .nobigstepl
  7384.  sub.w d6,d0
  7385.  move.w d0,(a3)+
  7386.  dbra d5,.pixlopleft
  7387.  bra lineflat
  7388.  
  7389. lineonright:
  7390.  
  7391.  lea (a3,d1*2),a3
  7392.  
  7393.  cmp.w top(pc),d1
  7394.  bge.s .nonewtop
  7395.  move.w d1,top
  7396. .nonewtop:
  7397.  cmp.w bottom(pc),d3
  7398.  ble.s .nonewbot
  7399.  move.w d3,bottom
  7400. .nonewbot:
  7401.  
  7402.  sub.w d1,d3    ; dy
  7403.  sub.w d0,d2    ; dx
  7404.  blt .linegoingleft
  7405. ; addq #1,d0
  7406.  ext.l d2
  7407.  divs d3,d2
  7408.  move.w d2,d6
  7409.  swap d2
  7410.  
  7411. ; moveq #0,d6
  7412. ; sub.w d3,d2
  7413. ; blt.s .noco
  7414. ;.makeco
  7415. ; addq #1,d6
  7416. ; sub.w d3,d2
  7417. ; bge.s .makeco
  7418. ;.noco
  7419. ; add.w d3,d2
  7420.  
  7421.  move.w d3,d4
  7422.  move.w d3,d5
  7423.  subq #1,d5
  7424.  move.w d6,d1
  7425.  addq #1,d1
  7426.  
  7427. .pixlopright:
  7428.  sub.w d2,d4
  7429.  bge.s .nobigstep
  7430.  add.w d1,d0
  7431.  add.w d3,d4
  7432.  move.w d0,(a3)+
  7433.  dbra d5,.pixlopright
  7434.  bra lineflat
  7435.  
  7436. .nobigstep
  7437.  add.w d6,d0
  7438.  move.w d0,(a3)+
  7439.  dbra d5,.pixlopright
  7440.  bra lineflat
  7441.  
  7442. .linegoingleft:
  7443. ; addq #1,d0
  7444.  neg.w d2
  7445.  
  7446.  ext.l d2
  7447.  divs d3,d2
  7448.  move.w d2,d6
  7449.  swap d2
  7450.  
  7451.  
  7452. ; moveq #0,d6
  7453. ; sub.w d3,d2
  7454. ; blt.s .nocol
  7455. ;.makecol
  7456. ; addq #1,d6
  7457. ; sub.w d3,d2
  7458. ; bge.s .makecol
  7459. ;.nocol
  7460. ; add.w d3,d2
  7461.  
  7462.  move.w d3,d4
  7463.  move.w d3,d5
  7464.  subq #1,d5
  7465.  move.w d6,d1
  7466.  addq #1,d1
  7467.  
  7468. .pixlopleft:
  7469.  move.w d0,(a3)+
  7470.  sub.w d2,d4
  7471.  bge.s .nobigstepl
  7472.  sub.w d1,d0
  7473.  add.w d3,d4
  7474.  dbra d5,.pixlopleft
  7475.  bra lineflat
  7476.  
  7477. .nobigstepl
  7478.  sub.w d6,d0
  7479.  dbra d5,.pixlopleft
  7480.  
  7481. lineflat:
  7482.  
  7483. bothbehind:
  7484.  dbra d7,sideloop
  7485.  bra pastsides
  7486.  
  7487. fbr: dc.w 0
  7488. sbr: dc.w 0
  7489. FloorPtBrights: dc.l 0
  7490.  
  7491. goursides:
  7492.  
  7493.  move.w #300,top
  7494.  move.w #-1,bottom
  7495.  move.w #0,drawit
  7496.  move.l #Rotated,a1
  7497.  move.l #OnScreen,a2
  7498.  move.w (a0)+,d7    ; no of sides
  7499. sideloopGOUR:
  7500.  move.w minz,d6
  7501.  move.w (a0)+,d1
  7502.  move.w (a0),d3
  7503.  
  7504.  move.w d1,d4
  7505.  move.w d3,d5
  7506.  and.w #$0fff,d1
  7507.  and.w #$0fff,d3
  7508.  
  7509.  rol.w #4,d4
  7510.  rol.w #4,d5
  7511.  and.w #$f,d4
  7512.  and.w #$f,d5
  7513.  
  7514.  move.l FloorPtBrights,a4
  7515.  move.w (a4,d4.w*8),d4
  7516.  bge.s .okpos1
  7517.  neg.w d4
  7518. .okpos1:
  7519.  sub.w #300,d4
  7520.  move.w d4,fbr
  7521.  move.w (a4,d5.w*8),d4
  7522.  bge.s .okpos2
  7523.  neg.w d4
  7524. .okpos2:
  7525.  sub.w #300,d4
  7526.  move.w d4,sbr
  7527.  
  7528.  move.w 6(a1,d1*8),d4    ;first z
  7529.  cmp.w d6,d4
  7530.  bgt firstinfrontGOUR
  7531.  move.w 6(a1,d3*8),d5    ; sec z
  7532.  cmp.w d6,d5
  7533.  ble bothbehindGOUR
  7534. ** line must be on left and partially behind.
  7535.  sub.w d5,d4
  7536.  
  7537.  move.w fbr,d0
  7538.  sub.w sbr,d0
  7539.  sub.w d5,d6
  7540.  muls d6,d0
  7541.  divs d4,d0
  7542.  add.w sbr,d0
  7543.  move.w d0,fbr
  7544.  
  7545.  move.l (a1,d1*8),d0
  7546.  sub.l (a1,d3*8),d0
  7547.  asr.l #7,d0
  7548.  muls d6,d0    ; new x coord
  7549.  divs d4,d0
  7550.  ext.l d0
  7551.  asl.l #7,d0
  7552.  
  7553.  add.l (a1,d3*8),d0
  7554.  move.w minz,d4
  7555.  move.w (a2,d3*2),d2
  7556.  divs d4,d0
  7557.  add.w MIDDLEX,d0
  7558.  move.l ypos,d3
  7559.  divs d5,d3
  7560.  
  7561.  move.w bottomline,d1 
  7562.  bra lineclippedGOUR
  7563.  
  7564. firstinfrontGOUR:
  7565.  move.w 6(a1,d3*8),d5    ; sec z
  7566.  cmp.w d6,d5
  7567.  bgt bothinfrontGOUR
  7568. ** line must be on right and partially behind.
  7569.  sub.w d4,d5    ; dz
  7570.  
  7571.  move.w sbr,d2
  7572.  sub.w fbr,d2
  7573.  sub.w d4,d6
  7574.  muls d6,d2
  7575.  divs d5,d2
  7576.  add.w fbr,d2
  7577.  move.w d2,sbr
  7578.  
  7579.  move.l (a1,d3*8),d2
  7580.  sub.l (a1,d1*8),d2    ; dx
  7581.  asr.l #7,d2
  7582.  muls d6,d2    ; new x coord
  7583.  divs d5,d2
  7584.  ext.l d2
  7585.  asl.l #7,d2
  7586.  add.l (a1,d1*8),d2
  7587.  move.w minz,d5
  7588.  move.w (a2,d1*2),d0
  7589.  divs d5,d2
  7590.  add.w MIDDLEX,d2
  7591.  move.l ypos,d1
  7592.  divs d4,d1
  7593.  move.w bottomline,d3 
  7594.  bra lineclippedGOUR
  7595.  
  7596. bothinfrontGOUR:
  7597.  
  7598. * Also, usefully enough, both are on-screen
  7599. * so no bottom clipping is needed.
  7600.  
  7601.  move.w (a2,d1*2),d0    ; first x
  7602.  move.w (a2,d3*2),d2    ; second x
  7603.  move.l ypos,d1
  7604.  move.l d1,d3
  7605.  divs d4,d1        ; first y
  7606.  divs d5,d3        ; second y
  7607. lineclippedGOUR:
  7608.  move.l #rightsidetab,a3
  7609.  cmp.w d1,d3
  7610.  bne linenotflatGOUR
  7611.  
  7612. ; move.w fbr,d4
  7613. ; move.w sbr,d5
  7614. ; cmp.w d0,d2
  7615. ; bgt.s .nsw
  7616. ; exg d4,d5
  7617. ;.nsw:
  7618.  
  7619. ; move.l #leftbrighttab,a3
  7620. ; move.w d4,(a3,d3.w)
  7621. ; move.l #rightbrighttab,a3
  7622. ; move.w d5,(a3,d3.w) 
  7623.  bra lineflatGOUR
  7624.  
  7625. linenotflatGOUR
  7626.  st drawit
  7627.  bgt lineonrightGOUR
  7628.  move.l #leftsidetab,a3
  7629.  exg d1,d3
  7630.  exg d0,d2
  7631.  
  7632.  lea (a3,d1*2),a3
  7633.  lea leftbrighttab-leftsidetab(a3),a4
  7634.  
  7635.  cmp.w top(pc),d1
  7636.  bge.s .nonewtop
  7637.  move.w d1,top
  7638. .nonewtop:
  7639.  cmp.w bottom(pc),d3
  7640.  ble.s .nonewbot
  7641.  move.w d3,bottom
  7642. .nonewbot:
  7643.  
  7644.  sub.w d1,d3    ; dy
  7645.  sub.w d0,d2    ; dx
  7646.  
  7647.  blt .linegoingleft
  7648.  
  7649.  ext.l d2
  7650.  divs d3,d2
  7651.  move.w d2,d6
  7652.  swap d2
  7653.  move.w d2,a5
  7654.  
  7655. ; moveq #0,d6
  7656. ; sub.w d3,d2
  7657. ; blt.s .noco
  7658. ;.makeco
  7659. ; addq #1,d6
  7660. ; sub.w d3,d2
  7661. ; bge.s .makeco
  7662. ;.noco
  7663. ; add.w d3,d2
  7664.  
  7665.  move.w d3,d4
  7666.  move.w d3,d5
  7667.  subq #1,d5
  7668.  move.w d6,d1
  7669.  addq #1,d1
  7670.  move.w d1,a6
  7671.  
  7672.  moveq #0,d1
  7673.  move.w sbr,d1
  7674.  move.w fbr,d2
  7675.  sub.w d1,d2
  7676.  ext.l d2
  7677.  asl.w #8,d2
  7678.  asl.w #2,d2
  7679.  divs d3,d2 
  7680.  ext.l d2
  7681.  asl.l #6,d2
  7682.  swap d1
  7683.  
  7684. .pixlopright:
  7685.  move.w d0,(a3)+
  7686.  swap d1
  7687.  move.w d1,(a4)+
  7688.  swap d1
  7689.  add.l d2,d1
  7690.  
  7691.  sub.w a5,d4
  7692.  bge.s .nobigstep
  7693.  add.w a6,d0
  7694.  add.w d3,d4
  7695.  dbra d5,.pixlopright
  7696.  bra lineflatGOUR
  7697. .nobigstep
  7698.  
  7699.  add.w d6,d0
  7700.  dbra d5,.pixlopright
  7701.  bra lineflatGOUR
  7702.  
  7703. .linegoingleft:
  7704.  
  7705.  neg.w d2
  7706.  
  7707.  ext.l d2
  7708.  divs d3,d2
  7709.  move.w d2,d6
  7710.  swap d2
  7711.  
  7712.  
  7713. ; moveq #0,d6
  7714. ; sub.w d3,d2
  7715. ; blt.s .nocol
  7716. ;.makecol
  7717. ; addq #1,d6
  7718. ; sub.w d3,d2
  7719. ; bge.s .makecol
  7720. ;.nocol
  7721. ; add.w d3,d2
  7722.  
  7723.  move.w d3,d4
  7724.  move.w d3,d5
  7725.  subq #1,d5
  7726.  
  7727.  move.w d6,d1
  7728.  addq #1,d1
  7729.  move.w d1,a6
  7730.  move.w d2,a5
  7731.  
  7732.  moveq #0,d1
  7733.  move.w sbr,d1
  7734.  move.w fbr,d2
  7735.  sub.w d1,d2
  7736.  ext.l d2
  7737.  asl.w #8,d2
  7738.  asl.w #2,d2
  7739.  divs d3,d2 
  7740.  ext.l d2
  7741.  asl.l #6,d2
  7742.  swap d1
  7743.  
  7744. .pixlopleft:
  7745.  
  7746.  swap d1
  7747.  move.w d1,(a4)+
  7748.  swap d1
  7749.  add.l d2,d1
  7750.  
  7751.  sub.w a5,d4
  7752.  bge.s .nobigstepl
  7753.  sub.w a6,d0
  7754.  add.w d3,d4
  7755.  move.w d0,(a3)+
  7756.  dbra d5,.pixlopleft
  7757.  bra lineflatGOUR
  7758.  
  7759. .nobigstepl
  7760.  sub.w d6,d0
  7761.  move.w d0,(a3)+
  7762.  dbra d5,.pixlopleft
  7763.  bra lineflatGOUR
  7764.  
  7765. lineonrightGOUR:
  7766.  
  7767.  lea (a3,d1*2),a3
  7768.  
  7769.  lea rightbrighttab-rightsidetab(a3),a4
  7770.  
  7771.  cmp.w top(pc),d1
  7772.  bge.s .nonewtop
  7773.  move.w d1,top
  7774. .nonewtop:
  7775.  cmp.w bottom(pc),d3
  7776.  ble.s .nonewbot
  7777.  move.w d3,bottom
  7778. .nonewbot:
  7779.  
  7780.  sub.w d1,d3    ; dy
  7781.  sub.w d0,d2    ; dx
  7782.  blt .linegoingleft
  7783. ; addq #1,d0
  7784.  ext.l d2
  7785.  divs d3,d2
  7786.  move.w d2,d6
  7787.  swap d2
  7788.  
  7789. ; moveq #0,d6
  7790. ; sub.w d3,d2
  7791. ; blt.s .noco
  7792. ;.makeco
  7793. ; addq #1,d6
  7794. ; sub.w d3,d2
  7795. ; bge.s .makeco
  7796. ;.noco
  7797. ; add.w d3,d2
  7798.  
  7799.  move.w d3,d4
  7800.  move.w d3,d5
  7801.  subq #1,d5
  7802.  move.w d6,d1
  7803.  addq #1,d1
  7804.  
  7805.  move.w d1,a6
  7806.  move.w d2,a5
  7807.  
  7808.  moveq #0,d1
  7809.  move.w fbr,d1
  7810.  move.w sbr,d2
  7811.  sub.w d1,d2
  7812.  ext.l d2
  7813.  asl.w #8,d2
  7814.  asl.w #2,d2
  7815.  divs d3,d2 
  7816.  ext.l d2
  7817.  asl.l #6,d2
  7818.  swap d1
  7819.  
  7820. .pixlopright:
  7821.  
  7822.  swap d1
  7823.  move.w d1,(a4)+
  7824.  swap d1
  7825.  add.l d2,d1
  7826.  
  7827.  sub.w a5,d4
  7828.  bge.s .nobigstep
  7829.  add.w a6,d0
  7830.  add.w d3,d4
  7831.  move.w d0,(a3)+
  7832.  dbra d5,.pixlopright
  7833.  bra lineflatGOUR
  7834.  
  7835. .nobigstep
  7836.  add.w d6,d0
  7837.  move.w d0,(a3)+
  7838.  dbra d5,.pixlopright
  7839.  bra lineflatGOUR
  7840.  
  7841. .linegoingleft:
  7842. ; addq #1,d0
  7843.  neg.w d2
  7844.  
  7845.  ext.l d2
  7846.  divs d3,d2
  7847.  move.w d2,d6
  7848.  swap d2
  7849.  
  7850.  
  7851. ; moveq #0,d6
  7852. ; sub.w d3,d2
  7853. ; blt.s .nocol
  7854. ;.makecol
  7855. ; addq #1,d6
  7856. ; sub.w d3,d2
  7857. ; bge.s .makecol
  7858. ;.nocol
  7859. ; add.w d3,d2
  7860.  
  7861.  move.w d3,d4
  7862.  move.w d3,d5
  7863.  subq #1,d5
  7864.  move.w d6,d1
  7865.  addq #1,d1
  7866.  move.w d1,a6
  7867.  move.w d2,a5
  7868.  
  7869.  moveq #0,d1
  7870.  move.w fbr,d1
  7871.  move.w sbr,d2
  7872.  sub.w d1,d2
  7873.  ext.l d2
  7874.  asl.w #8,d2
  7875.  asl.w #2,d2
  7876.  divs d3,d2 
  7877.  ext.l d2
  7878.  asl.l #6,d2
  7879.  swap d1
  7880.  
  7881. .pixlopleft:
  7882.  
  7883.  swap d1
  7884.  move.w d1,(a4)+
  7885.  swap d1
  7886.  add.l d2,d1
  7887.  
  7888.  move.w d0,(a3)+
  7889.  sub.w a5,d4
  7890.  bge.s .nobigstepl
  7891.  sub.w a6,d0
  7892.  add.w d3,d4
  7893.  dbra d5,.pixlopleft
  7894.  bra lineflatGOUR
  7895.  
  7896. .nobigstepl
  7897.  sub.w d6,d0
  7898.  dbra d5,.pixlopleft
  7899.  
  7900. lineflatGOUR:
  7901.  
  7902. bothbehindGOUR:
  7903.  dbra d7,sideloopGOUR
  7904.  
  7905. pastsides:
  7906.  
  7907.  addq #2,a0
  7908.  
  7909.  move.w #104*4,linedir
  7910.  
  7911. ; move.l FASTBUFFER2,a6
  7912. ; add.l BIGMIDDLEY,a6
  7913. ; move.l a6,REFPTR
  7914.  
  7915. ; move.l FASTBUFFER,a6
  7916. ; add.l BIGMIDDLEY,a6
  7917.  
  7918.  move.l frompt,a6
  7919.  add.l BIGMIDDLEY,a6
  7920. ; add.l #104*4*41,a6
  7921.  
  7922.  move.w (a0)+,d6
  7923.  add.w SMALLIT,d6
  7924.  move.w d6,scaleval
  7925.  move.w (a0)+,d6
  7926.  
  7927. ; ifne CHEESEY
  7928. ; move.w d6,d7    ; 000000XX000000YY
  7929. ; lsr.w #6,d6
  7930. ; add.w d6,d7    ; 000000XX0000XXYY
  7931. ; 
  7932. ; and.b #%111,d6    ; 000000XX00000XYY
  7933. ; add.b d7,d7    ; 000000XX0000XYY0
  7934. ; asl.w #4,d7    ; 00XX0000 XYY00000
  7935. ; and.w #%0010000011100000,d7
  7936. ; move.w d7,d6
  7937. ; endc
  7938.  
  7939.  move.w d6,whichtile
  7940.  move.w (a0)+,d6
  7941.  add.w ZoneBright,d6
  7942.  move.w d6,lighttype
  7943.  move.w above(pc),d6
  7944.  beq groundfloor
  7945. * on ceiling:
  7946.  move.w #-104*4,linedir
  7947.  suba.w #104*4,a6
  7948. groundfloor:
  7949.  
  7950.  move.w xoff,d6
  7951.  move.w zoff,d7
  7952.  add.w xwobxoff,d7
  7953.  add.w xwobzoff,d6
  7954.  ext.l d6
  7955.  ext.l d7
  7956.  
  7957.  tst.b FULLSCR
  7958.  beq.s .shiftit
  7959.  
  7960.  asl.l #2,d6
  7961.  asl.l #2,d7
  7962.  divs #3,d6
  7963.  divs #3,d7
  7964.  swap d6
  7965.  swap d7
  7966.  clr.w d6
  7967.  clr.w d7
  7968.  asr.l #2,d6
  7969.  asr.l #2,d7
  7970.  bra.s .donsht
  7971.  
  7972. .shiftit
  7973.  
  7974. ; divs #3,d6
  7975. ; divs #3,d7
  7976.  swap d6
  7977.  swap d7
  7978.  clr.w d6
  7979.  clr.w d7
  7980.  asr.l #1,d6
  7981.  asr.l #1,d7
  7982. .donsht:
  7983.  move.w scaleval(pc),d3
  7984.  beq.s .samescale
  7985.  bgt.s .scaledown
  7986.  neg.w d3
  7987.  asr.l d3,d7
  7988.  asr.l d3,d6
  7989.  bra.s .samescale
  7990. .scaledown:
  7991.  asl.l d3,d6
  7992.  asl.l d3,d7
  7993. .samescale
  7994.  
  7995.  ifne CHEESEY
  7996.  asr.l #1,d6
  7997.  asr.l #1,d7
  7998.  endc
  7999.  
  8000.  move.l d6,sxoff
  8001.  move.l d7,szoff
  8002.  bra pastscale 
  8003.  
  8004.  asr.l #3,d1
  8005.  asr.l #3,d2
  8006.  asr.l #2,d1
  8007.  asr.l #2,d2
  8008.  asr.l #1,d1
  8009.  asr.l #1,d2
  8010. scaleprogfrom
  8011.  nop
  8012.  nop
  8013.  asl.l #1,d1
  8014.  asl.l #1,d2
  8015.  asl.l #2,d1
  8016.  asl.l #2,d2
  8017.  asl.l #3,d1
  8018.  asl.l #3,d2
  8019.  
  8020. top: dc.w 0
  8021. bottom: dc.w 0
  8022. ypos: dc.l 0
  8023. nfloors: dc.w 0
  8024. lighttype: dc.w 0
  8025. above: dc.w 0 
  8026. linedir: dc.w 0
  8027. distaddr: dc.w 0
  8028.  
  8029. minz: dc.l 0
  8030.  
  8031. leftsidetab:
  8032.  ds.w 512*2
  8033. rightsidetab:
  8034.  ds.w 512*2
  8035. leftbrighttab:
  8036.  ds.w 512*2
  8037. rightbrighttab:
  8038.  ds.w 512*2
  8039.  
  8040. PointBrights:
  8041.  dc.l 0
  8042. CurrentPointBrights:
  8043.  ds.l 2*256*10
  8044.  
  8045. movespd: dc.w 0
  8046. largespd: dc.l 0
  8047. disttobot: dc.w 0
  8048.  
  8049. pastscale:
  8050.  
  8051.  
  8052.  tst.b drawit(pc)
  8053.  beq dontdrawfloor
  8054.  
  8055.  tst.b DOUBLEHEIGHT
  8056.  beq pix1h
  8057.  
  8058.  move.l a0,-(a7)
  8059. ; move.w linedir,d1
  8060. ; add.w d1,linedir
  8061.  
  8062.  move.l #leftsidetab,a4
  8063.  move.w top(pc),d1
  8064.  tst.w above
  8065.  beq.s .clipfloor
  8066.  
  8067. ; sub.w #104*4,a6
  8068.  
  8069.  move.w MIDDLEY,d7
  8070.  subq #1,d7
  8071.  sub.w d1,d7
  8072.  move.w d7,disttobot
  8073.  
  8074.  move.w bottom(pc),d7
  8075.  move.w MIDDLEY,d3
  8076.  move.w d3,d4
  8077.  sub.w topclip,d3
  8078.  sub.w botclip,d4
  8079.  cmp.w d3,d1
  8080.  bge predontdrawfloor
  8081.  cmp.w d4,d7
  8082.  blt predontdrawfloor
  8083.  cmp.w d4,d1
  8084.  bge.s .nocliptoproof
  8085.  move.w d4,d1
  8086. .nocliptoproof
  8087.  cmp.w d3,d7
  8088.  blt .doneclip
  8089.  move.w d3,d7
  8090.  bra .doneclip
  8091.  
  8092. .clipfloor:
  8093.  move.w BOTTOMY,d7
  8094.  sub.w MIDDLEY,d7
  8095.  subq #1,d7
  8096.  sub.w d1,d7
  8097.  move.w d7,disttobot
  8098.  
  8099.  move.w bottom(pc),d7
  8100.  move.w botclip,d4
  8101.  sub.w MIDDLEY,d4
  8102.  cmp.w d4,d1
  8103.  bge predontdrawfloor
  8104.  move.w topclip,d3
  8105.  sub.w MIDDLEY,d3
  8106.  cmp.w d3,d1
  8107.  bge.s .nocliptopfloor
  8108.  move.w d3,d1
  8109. .nocliptopfloor 
  8110.  cmp.w d3,d7
  8111.  ble predontdrawfloor
  8112.  cmp.w d4,d7
  8113.  blt.s .noclipbotfloor
  8114.  move.w d4,d7
  8115. .noclipbotfloor:
  8116.  
  8117. .doneclip:
  8118.  
  8119.  lea (a4,d1*2),a4
  8120. ; addq #1,d7
  8121.  sub.w d1,d7
  8122.  
  8123. ;moveq #0,d0
  8124.  asr.w #1,d1
  8125. ; addx d0,d1
  8126.  
  8127. ; move.l #dists,a2
  8128.  move.w distaddr,d0
  8129.  muls #64,d0
  8130.  move.l d0,a2
  8131. ; muls #25,d0
  8132. ; adda.w d0,a2
  8133. ; lea (a2,d1*2),a2
  8134.  asr.w #1,d7
  8135.  ble predontdrawfloor 
  8136.  move.w d1,d0
  8137.  bne.s .notzero
  8138.  moveq #1,d0
  8139. .notzero
  8140.  add.w d0,d0
  8141.  muls linedir,d1
  8142.  add.l d1,a6
  8143.  
  8144.  
  8145. ;;; sub.l d1,REFPTR
  8146.  move.l #floorpalscaled,a1
  8147.  move.l LineToUse,a5
  8148.  
  8149.  move.w #4,tonextline
  8150.  
  8151.  bra pix2h
  8152.  
  8153. pix1h:
  8154.  
  8155.  move.l a0,-(a7)
  8156.  
  8157.  move.l #leftsidetab,a4
  8158.  move.w top(pc),d1
  8159.   
  8160.  tst.w above
  8161.  beq.s clipfloor
  8162.  
  8163.  move.w MIDDLEY,d7
  8164.  subq #1,d7
  8165.  sub.w d1,d7
  8166.  move.w d7,disttobot
  8167.  
  8168.  move.w bottom(pc),d7
  8169.  move.w MIDDLEY,d3
  8170.  move.w d3,d4
  8171.  sub.w topclip,d3
  8172.  sub.w botclip,d4
  8173.  cmp.w d3,d1
  8174.  bge predontdrawfloor
  8175.  cmp.w d4,d7
  8176.  blt predontdrawfloor
  8177.  cmp.w d4,d1
  8178.  bge.s .nocliptoproof
  8179.  move.w d4,d1
  8180. .nocliptoproof
  8181.  cmp.w d3,d7
  8182.  blt doneclip
  8183.  move.w d3,d7
  8184.  bra doneclip
  8185.  
  8186. clipfloor:
  8187.  move.w BOTTOMY,d7
  8188.  sub.w MIDDLEY,d7
  8189.  subq #1,d7
  8190.  sub.w d1,d7
  8191.  move.w d7,disttobot
  8192.  
  8193.  move.w bottom(pc),d7
  8194.  move.w botclip,d4
  8195.  sub.w MIDDLEY,d4
  8196.  cmp.w d4,d1
  8197.  bge predontdrawfloor
  8198.  move.w topclip,d3
  8199.  sub.w MIDDLEY,d3
  8200.  cmp.w d3,d1
  8201.  bge.s .nocliptopfloor
  8202.  move.w d3,d1
  8203. .nocliptopfloor 
  8204.  cmp.w d3,d7
  8205.  ble predontdrawfloor
  8206.  cmp.w d4,d7
  8207.  blt.s .noclipbotfloor
  8208.  move.w d4,d7
  8209. .noclipbotfloor:
  8210.  
  8211. doneclip:
  8212.  
  8213.  lea (a4,d1*2),a4
  8214. ; move.l #dists,a2
  8215.  move.w distaddr,d0
  8216.  muls #64,d0
  8217.  move.l d0,a2
  8218. ; muls #25,d0
  8219. ; adda.w d0,a2
  8220. ; lea (a2,d1*2),a2
  8221.  sub.w d1,d7
  8222.  ble predontdrawfloor 
  8223.  move.w d1,d0
  8224.  bne.s .notzero
  8225.  moveq #1,d0
  8226. .notzero
  8227.  muls linedir,d1
  8228.  add.l d1,a6
  8229.  
  8230. ;;;; sub.l d1,REFPTR
  8231.  move.l #floorpalscaled,a1
  8232.  move.l LineToUse,a5
  8233.  
  8234.  move.w #2,tonextline
  8235.  
  8236. pix2h:
  8237.  
  8238.  tst.b gourfloor
  8239.  bne dogourfloor
  8240.  
  8241.  tst.b anyclipping
  8242.  beq dofloornoclip
  8243.  
  8244. dofloor:
  8245. ; move.w (a2)+,d0
  8246.  move.w leftclip,d3
  8247.  move.w rightclip,d4
  8248.  move.w rightsidetab-leftsidetab(a4),d2
  8249.  
  8250.  addq #1,d2
  8251.  cmp.w d3,d2
  8252.  ble.s nodrawline
  8253.  cmp.w d4,d2
  8254.  ble.s noclipright
  8255.  move.w d4,d2
  8256. noclipright:
  8257.  move.w (a4),d1
  8258.  cmp.w d4,d1
  8259.  bge.s nodrawline
  8260.  cmp.w d3,d1
  8261.  bge.s noclipleft
  8262.  move.w d3,d1
  8263. noclipleft:
  8264.  cmp.w d1,d2
  8265.  ble.s nodrawline
  8266.  
  8267.  move.w d1,leftedge
  8268.  move.w d2,rightedge
  8269.  
  8270. ; moveq #0,d1
  8271. ; moveq #0,d3
  8272. ; move.w leftbrighttab-leftsidetab(a4),d1
  8273. ; bge.s .okbl
  8274. ; moveq #0,d1
  8275. ;.okbl:
  8276.  
  8277. ; move.w rightbrighttab-leftsidetab(a4),d3
  8278. ; bge.s .okbr
  8279. ; moveq #0,d3
  8280. ;.okbr:
  8281.  
  8282. ; sub.w d1,d3
  8283. ; asl.w #8,d1
  8284. ; move.l d1,leftbright
  8285. ; swap d3
  8286. ; asr.l #5,d3
  8287. ; divs d5,d3
  8288. ; move.w d3,d5
  8289. ; muls.w d6,d5
  8290. ; asr.l #3,d5
  8291. ; clr.b d5
  8292. ; add.w d5,leftbright+2
  8293.  
  8294. ; ext.l d3
  8295. ; asl.l #5,d3
  8296. ; swap d3
  8297. ; asl.w #8,d3
  8298. ; move.l d3,brightspd
  8299.  
  8300.  move.l a6,a3
  8301.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8302.  move.l a2,d7
  8303.  asl.l #2,d7
  8304.  ext.l d0
  8305.  divs.l d0,d7
  8306.  move.l d7,d0
  8307.  jsr (a5)
  8308.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8309. nodrawline
  8310.  sub.w #1,disttobot
  8311.  move.w linedir(pc),d3
  8312.  adda.w d3,a6
  8313. ; ext.l d3
  8314. ; sub.l d3,REFPTR
  8315.  move.w tonextline,d3
  8316.  add.w d3,a4
  8317.  asr.w #1,d3
  8318.  add.w d3,d0
  8319.  subq #1,d7
  8320.  bgt dofloor
  8321.  
  8322. predontdrawfloor
  8323.  move.l (a7)+,a0
  8324.  
  8325. dontdrawfloor:
  8326.  
  8327.  rts
  8328.  
  8329. tonextline: dc.w 0
  8330. anyclipping: dc.w 0
  8331.  
  8332. dofloornoclip:
  8333. ; move.w (a2)+,d0
  8334.  move.w rightsidetab-leftsidetab(a4),d2
  8335.  addq #1,d2
  8336.  move.w (a4),d1
  8337.  move.w d1,leftedge
  8338.  move.w d2,rightedge
  8339.  
  8340. ; sub.w d1,d2
  8341.  
  8342. ; moveq #0,d1
  8343. ; moveq #0,d3
  8344. ; move.w leftbrighttab-leftsidetab(a4),d1
  8345. ; bge.s .okbl
  8346. ; moveq #0,d1
  8347. ;.okbl:
  8348.  
  8349. ; move.w rightbrighttab-leftsidetab(a4),d3
  8350. ; bge.s .okbr
  8351. ; moveq #0,d3
  8352. ;.okbr:
  8353.  
  8354. ; sub.w d1,d3
  8355. ; asl.w #8,d1
  8356. ; move.l d1,leftbright
  8357. ; swap d3
  8358. ; asr.l #5,d3
  8359. ; divs d2,d3
  8360. ; ext.l d3
  8361. ; asl.l #5,d3
  8362. ; swap d3
  8363. ; asl.w #8,d3
  8364. ; move.l d3,brightspd
  8365.  
  8366.  move.l a6,a3
  8367.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8368.  move.l a2,d7
  8369.  asl.l #2,d7
  8370.  ext.l d0
  8371.  divs.l d0,d7
  8372.  move.l d7,d0
  8373.  jsr (a5)
  8374.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8375.  sub.w #1,disttobot
  8376.  move.w linedir(pc),d3
  8377.  adda.w d3,a6
  8378. ; ext.l d3
  8379. ; sub.l d3,REFPTR
  8380.  move.w tonextline,d3
  8381.  add.w d3,a4
  8382.  asr.w #1,d3
  8383.  add.w d3,d0
  8384.  subq #1,d7
  8385.  bgt dofloornoclip
  8386.  
  8387.  bra predontdrawfloor
  8388.  
  8389. dogourfloor:
  8390.  tst.b anyclipping
  8391.  beq dofloornoclipGOUR
  8392.  
  8393. dofloorGOUR:
  8394. ; move.w (a2)+,d0
  8395.  move.w leftclip,d3
  8396.  move.w rightclip,d4
  8397.  move.w rightsidetab-leftsidetab(a4),d2
  8398.  
  8399.  move.w d2,d5
  8400.  sub.w (a4),d5
  8401.  addq #1,d5
  8402.  moveq #0,d6
  8403.  
  8404.  addq #1,d2
  8405.  cmp.w d3,d2
  8406.  ble nodrawlineGOUR
  8407.  cmp.w d4,d2
  8408.  ble.s nocliprightGOUR
  8409.  move.w d4,d2
  8410. nocliprightGOUR:
  8411.  move.w (a4),d1
  8412.  cmp.w d4,d1
  8413.  bge nodrawlineGOUR
  8414.  cmp.w d3,d1
  8415.  bge.s noclipleftGOUR
  8416.  move.w d3,d6
  8417.  subq #1,d6
  8418.  sub.w d1,d6
  8419.  move.w d3,d1
  8420. noclipleftGOUR:
  8421.  cmp.w d1,d2
  8422.  ble nodrawlineGOUR
  8423.  
  8424.  move.w d1,leftedge
  8425.  move.w d2,rightedge
  8426.  
  8427.  move.l a2,d2
  8428.  asl.l #2,d2
  8429.  ext.l d0
  8430.  divs.l d0,d2
  8431.  move.l d2,dst
  8432.  asr.l #7,d2
  8433.  asr.l #2,d2
  8434. ; addq #5,d2
  8435. ; add.w lighttype,d2
  8436.  
  8437.  moveq #0,d1
  8438.  moveq #0,d3
  8439.  move.w leftbrighttab-leftsidetab(a4),d1
  8440.  add.w d2,d1
  8441.  bge.s .okbl
  8442.  moveq #0,d1
  8443. .okbl:
  8444. ; asr.w #1,d1
  8445.  cmp.w #30,d1
  8446.  ble.s .okdl
  8447.  move.w #30,d1
  8448. .okdl:
  8449.  
  8450.  move.w rightbrighttab-leftsidetab(a4),d3
  8451.  add.w d2,d3
  8452.  bge.s .okbr
  8453.  moveq #0,d3
  8454. .okbr:
  8455. ; asr.w #1,d3
  8456.  cmp.w #30,d3
  8457.  ble.s .okdr
  8458.  move.w #30,d3
  8459. .okdr:
  8460.  
  8461.  sub.w d1,d3
  8462.  asl.w #8,d1
  8463.  move.w d1,leftbright
  8464.  swap d3
  8465.  tst.l d3
  8466.  bgt.s .OKITSPOSALREADY 
  8467.  neg.l d3
  8468.  asr.l #6,d3
  8469.  divs d5,d3
  8470.  neg.w d3
  8471.  bra.s .OKNOWITSNEG
  8472.  
  8473. .OKITSPOSALREADY
  8474.  asr.l #6,d3
  8475.  divs d5,d3
  8476. .OKNOWITSNEG
  8477.  muls d3,d6
  8478.  add.w #256*4,d6
  8479.  asr.w #2,d6
  8480.  clr.b d6
  8481.  add.w leftbright,d6
  8482.  bge.s .oklbnn
  8483.  moveq #0,d6
  8484. .oklbnn:
  8485.  move.w d6,leftbright
  8486.  
  8487.  ext.l d3
  8488.  asr.l #2,d3
  8489. ; swap d3
  8490. ; asl.w #8,d3
  8491.  move.w d3,brightspd
  8492.  
  8493.  move.l a6,a3
  8494.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8495.  move.l dst,d0
  8496.  move.l #floorpalscaled,a1
  8497.  move.l floortile,a0
  8498.  adda.w whichtile,a0
  8499.  jsr pastfloorbright
  8500.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8501. nodrawlineGOUR
  8502.  
  8503.  sub.w #1,disttobot
  8504.  
  8505.  move.w linedir(pc),d3
  8506.  adda.w d3,a6
  8507. ; ext.l d3
  8508. ; sub.l d3,REFPTR
  8509.  move.w tonextline,d3
  8510.  add.w d3,a4
  8511.  asr.w #1,d3
  8512.  add.w d3,d0
  8513.  subq #1,d7
  8514.  bgt dofloorGOUR
  8515.  
  8516. predontdrawfloorGOUR
  8517.  move.l (a7)+,a0
  8518.  
  8519. dontdrawfloorGOUR:
  8520.  
  8521.  rts
  8522.  
  8523. REFPTR: dc.l 0
  8524.  
  8525. dofloornoclipGOUR:
  8526. ; move.w (a2)+,d0
  8527.  move.w rightsidetab-leftsidetab(a4),d2
  8528.  addq #1,d2
  8529.  move.w (a4),d1
  8530.  move.w d1,leftedge
  8531.  move.w d2,rightedge
  8532.  
  8533.  sub.w d1,d2
  8534.  
  8535.  move.l a2,d6
  8536.  asl.l #2,d6
  8537.  ext.l d0
  8538.  divs.l d0,d6
  8539.  move.l d6,d5
  8540.  asr.l #7,d5
  8541.  asr.l #2,d5
  8542. ; addq #5,d5
  8543. ; add.w lighttype,d5
  8544.  
  8545.  moveq #0,d1
  8546.  moveq #0,d3
  8547.  move.w leftbrighttab-leftsidetab(a4),d1
  8548.  add.w d5,d1
  8549.  bge.s .okbl
  8550.  moveq #0,d1
  8551. .okbl:
  8552. ; asr.w #1,d1
  8553.  cmp.w #30,d1
  8554.  ble.s .okdl
  8555.  move.w #30,d1
  8556. .okdl:
  8557.  
  8558.  move.w rightbrighttab-leftsidetab(a4),d3
  8559.  add.w d5,d3
  8560.  bge.s .okbr
  8561.  moveq #0,d3
  8562. .okbr:
  8563. ; asr.w #1,d3
  8564.  cmp.w #30,d3
  8565.  ble.s .okdr
  8566.  move.w #30,d3
  8567. .okdr:
  8568.  
  8569. ; sub.w d1,d3
  8570. ; asl.w #8,d1
  8571. ; move.l d1,leftbright
  8572. ; swap d3
  8573. ; asr.l #5,d3
  8574. ; divs d2,d3
  8575. ; ext.l d3
  8576. ; asl.l #5,d3
  8577. ; swap d3
  8578. ; asl.w #8,d3
  8579. ; move.l d3,brightspd
  8580.  
  8581.  sub.w d1,d3
  8582.  asl.w #8,d1
  8583.  move.w d1,leftbright
  8584.  swap d3
  8585.  ext.l d2
  8586.  divs.l d2,d3
  8587.  asr.l #8,d3
  8588.  move.w d3,brightspd
  8589.  
  8590.  move.l a6,a3
  8591.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8592.  move.l d6,d0
  8593.  move.l d0,dst
  8594.  move.l #floorpalscaled,a1
  8595.  move.l floortile,a0
  8596.  adda.w whichtile,a0
  8597.  jsr pastfloorbright
  8598.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8599.  sub.w #1,disttobot
  8600.  
  8601.  move.w linedir(pc),d3
  8602.  adda.w d3,a6
  8603. ; ext.l d3
  8604. ; sub.l d3,REFPTR
  8605.  
  8606.  move.w tonextline,d3
  8607.  add.w d3,a4
  8608.  asr.w #1,d3
  8609.  add.w d3,d0
  8610.  subq #1,d7
  8611.  bgt dofloornoclipGOUR
  8612.  
  8613.  bra predontdrawfloorGOUR
  8614.  
  8615.  
  8616.  
  8617. dists:
  8618. ; incbin "floordists"
  8619. drawit: dc.w 0
  8620.  
  8621. LineToUse: dc.l 0
  8622.  
  8623. ***************************
  8624. * Right then, time for the floor
  8625. * routine...
  8626. * For test purposes, give it
  8627. * a3 = point to screen
  8628. * d0= z distance away
  8629. * and sinval+cosval must be set up.
  8630. ***************************
  8631.  
  8632. BLACKFLOOR:
  8633.  moveq #0,d0
  8634.  bra DOBLACK
  8635.  
  8636. SimpleFloorLine:
  8637.  
  8638.  
  8639. ; CACHE_OFF d2
  8640.  
  8641.  move.l #0,FIRSTLEN
  8642.  move.w #0,THIRDLEN
  8643.  
  8644.  move.w leftedge,d6
  8645.  asr.w #1,d6
  8646.  move.w rightedge,d7
  8647.  asr.w #1,d7
  8648.  
  8649.  sub.w d6,d7
  8650.  
  8651.  lea (a3,d6.w*4),a3
  8652.  
  8653.  move.w d6,d3
  8654.  move.w d3,d1
  8655.  asr.w #5,d1
  8656.  lea (a3,d1.w*4),a3
  8657.  
  8658.  asl.w #5,d1
  8659.  sub.w d1,d3
  8660.  
  8661.  neg.w d3
  8662.  add.w #32,d3
  8663.  
  8664.  cmp.w d7,d3
  8665.  bge.s .allinonestrip
  8666.  
  8667. ; The damn thing overlaps the end of this strip.
  8668.  
  8669.  sub.w d3,d7    ; remaining width.
  8670.  move.w d3,FIRSTLEN
  8671.  
  8672.  cmp.w #32,d7
  8673.  ble.s .allintwostrips
  8674.  
  8675.  move.w #32,SECLEN
  8676.  sub.w #32,d7
  8677.  move.w d7,THIRDLEN
  8678.  bra .donestrips
  8679.  
  8680. .allintwostrips
  8681.  move.w d7,SECLEN
  8682.  bra .donestrips
  8683.  
  8684. .allinonestrip
  8685.  move.w d7,FIRSTLEN
  8686.  
  8687. .donestrips:
  8688.  
  8689. ; tst.b CLRNOFLOOR
  8690. ; bne.s BLACKFLOOR
  8691.  
  8692.  move.l #PLAINSCALE,a2
  8693.  
  8694.  move.w d0,d2
  8695.  move.w lighttype,d1
  8696.  asr.w #8,d2
  8697. ; add.w #5,d1
  8698.  add.w d2,d1
  8699.  bge.s .fixedbright
  8700.  moveq #0,d1
  8701. .fixedbright:
  8702.  cmp.w #28,d1
  8703.  ble.s .smallbright
  8704.  move.w #28,d1
  8705. .smallbright:
  8706.  lea (a2,d1.w*2),a2
  8707.  
  8708.  move.w whichtile,d0
  8709.  move.w d0,d1
  8710.  and.w #$3,d1
  8711.  and.w #$300,d0
  8712.  lsl.b #6,d1
  8713.  move.b d1,d0
  8714.  move.w d0,tstwhich
  8715.  move.w (a2,d0.w),d0
  8716.  
  8717.  move.w FIRSTLEN,d2
  8718.  beq.s .nolen
  8719.  bsr DOIT
  8720.  move.w SECLEN,d2
  8721.  beq.s .nolen
  8722.  addq #4,a3
  8723.  bsr DOIT
  8724.  addq #4,a3
  8725.  move.w THIRDLEN,d2
  8726.  beq.s .nolen
  8727.  bsr DOIT
  8728. .nolen:
  8729.  rts
  8730.  
  8731. DOIT:
  8732.  subq #1,d2
  8733. doitlop:
  8734.  move.w d0,(a3)
  8735.  addq #4,a3
  8736.  dbra d2,doitlop
  8737.  rts
  8738.  
  8739. DOBLACK:
  8740.  jsr (a1)
  8741.  move.w d4,(a1,d3.w*4)
  8742.  
  8743. ; CACHE_ON d2
  8744.  
  8745.  rts
  8746.  
  8747. tstwhich: dc.w 0
  8748. whichtile: dc.w 0
  8749.   
  8750. PLAINSCALE: 
  8751.  incbin "ab3:includes/plainscale"
  8752.   
  8753. storeit: dc.l 0
  8754.  
  8755. ;doacrossline:
  8756. ;val SET 0
  8757. ; REPT 32
  8758. ; move.w d0,val(a3)
  8759. ;val SET val+4
  8760. ; ENDR
  8761. ;val SET val+4
  8762. ; REPT 32
  8763. ; move.w d0,val(a3)
  8764. ;val SET val+4
  8765. ; ENDR
  8766. ;val SET val+4
  8767. ; REPT 32
  8768. ; move.w d0,val(a3)
  8769. ;val SET val+4
  8770. ; ENDR
  8771. ; rts
  8772.  
  8773.  
  8774. leftedge: dc.w 0
  8775. rightedge: dc.w 0
  8776.  
  8777. rndpt: dc.l rndtab
  8778.  
  8779.  
  8780. dst: dc.l 0
  8781.  
  8782. FloorLine:
  8783.  
  8784.  move.l floortile,a0
  8785.  adda.w whichtile,a0
  8786.  move.w lighttype,d1
  8787.  move.l d0,dst    ; *4
  8788.  move.l d0,d2    ; *4
  8789. *********************
  8790. * Old version
  8791.  asr.l #2,d2
  8792.  asr.l #8,d2
  8793.  add.w #5,d1
  8794. *********************
  8795. ; asr.w #3,d2
  8796. ; sub.w #4,d2
  8797. ; cmp.w #6,d2
  8798. ; blt.s flbrbr
  8799. ; move.w #6,d2
  8800. ;flbrbr:
  8801. *********************
  8802.  add.w d2,d1
  8803.  bge.s .fixedbright
  8804.  moveq #0,d1
  8805. .fixedbright:
  8806.  cmp.w #28,d1
  8807.  ble.s .smallbright
  8808.  move.w #28,d1
  8809. .smallbright:
  8810.  move.l #floorpalscaled,a1
  8811.  add.l floorbright(pc,d1.w*4),a1
  8812.  bra pastfloorbright
  8813.  
  8814. ConstCol: dc.w 0
  8815.  
  8816. BumpLine:
  8817.  
  8818.  tst.b smoothbumps
  8819.  beq.s Chunky
  8820.  
  8821.  move.l #SmoothTile,a0
  8822.  lea Smoothscalecols,a1
  8823.  bra pastast
  8824.  
  8825. Chunky:
  8826.  
  8827.  moveq #0,d2
  8828.  move.l #Bumptile,a0
  8829.  move.w whichtile,d2
  8830.  adda.w d2,a0
  8831.  ror.l #2,d2
  8832.  lsr.w #6,d2
  8833.  rol.l #2,d2
  8834.  and.w #15,d2
  8835.  move.l #ConstCols,a1
  8836.  move.w (a1,d2.w*2),ConstCol
  8837.  lea Bumpscalecols,a1
  8838.  
  8839. pastast:
  8840.  move.w lighttype,d1
  8841.  
  8842.  move.l d0,dst
  8843.  
  8844.  move.l d0,d2
  8845. *********************
  8846. * Old version
  8847.  asr.l #2,d2
  8848.  asr.l #8,d2
  8849.  add.w #5,d1
  8850. *********************
  8851. ; asr.w #3,d2
  8852. ; sub.w #4,d2
  8853. ; cmp.w #6,d2
  8854. ; blt.s flbrbr
  8855. ; move.w #6,d2
  8856. ;flbrbr:
  8857. *********************
  8858.  add.w d2,d1
  8859.  bge.s .fixedbright
  8860.  moveq #0,d1
  8861. .fixedbright:
  8862.  cmp.w #31,d1
  8863.  ble.s .smallbright
  8864.  move.w #31,d1
  8865. .smallbright:
  8866.  add.l floorbright(pc,d1.w*4),a1
  8867.  bra pastfloorbright
  8868.  
  8869.  
  8870. floorbright:
  8871.  dc.l 512*0
  8872.  dc.l 512*1
  8873.  dc.l 512*2
  8874.  dc.l 512*3
  8875.  dc.l 512*4
  8876.  
  8877.  dc.l 512*5
  8878.  dc.l 512*6
  8879.  dc.l 512*7
  8880.  dc.l 512*8
  8881.  dc.l 512*9
  8882.  
  8883.  dc.l 512*10
  8884.  dc.l 512*11
  8885.  dc.l 512*12
  8886.  dc.l 512*13
  8887.  dc.l 512*14
  8888.  
  8889.  dc.l 512*15
  8890.  dc.l 512*16
  8891.  dc.l 512*17
  8892.  dc.l 512*18
  8893.  dc.l 512*19
  8894.  
  8895.  dc.l 512*20
  8896.  dc.l 512*21
  8897.  dc.l 512*22
  8898.  dc.l 512*23
  8899.  dc.l 512*24
  8900.  
  8901.  dc.l 512*25
  8902.  dc.l 512*26
  8903.  dc.l 512*27
  8904.  dc.l 512*28
  8905.  dc.l 512*29
  8906.  
  8907.  dc.l 512*30
  8908.  dc.l 512*31
  8909.  
  8910. widthleft: dc.w 0
  8911. scaleval: dc.w 0
  8912. sxoff: dc.l 0
  8913. szoff: dc.l 0
  8914. xoff34: dc.w 0
  8915. zoff34: dc.w 0
  8916. scosval: dc.w 0
  8917. ssinval: dc.w 0
  8918.  
  8919.  
  8920. floorsetbright:
  8921.  move.l #walltiles,a0
  8922.  
  8923. pastfloorbright:
  8924.  
  8925.  move.l d0,d1
  8926.  muls cosval,d1    ; change in x across whole width
  8927.  move.l d0,d2
  8928.  muls sinval,d2    ; change in z across whole width
  8929.  neg.l d2
  8930.  ifne CHEESEY
  8931.  asr.l #3,d2
  8932.  asr.l #3,d1
  8933.  endc
  8934.  ifeq CHEESEY
  8935.  asr.l #2,d2
  8936.  asr.l #2,d1
  8937.  endc
  8938. scaleprog:
  8939.  move.w scaleval(pc),d3
  8940.  beq.s .samescale
  8941.  bgt.s .scaledown
  8942.  neg.w d3
  8943.  asr.l d3,d1
  8944.  asr.l d3,d2
  8945.  bra.s .samescale
  8946. .scaledown:
  8947.  asl.l d3,d1
  8948.  asl.l d3,d2
  8949. .samescale
  8950.  
  8951.  
  8952.  move.l d1,d3 ;    z cos
  8953.  move.l d3,d6
  8954.  move.l d3,d5
  8955.  asr.l #1,d6
  8956.  add.l d6,d3
  8957.  asr.l #1,d3
  8958.  
  8959.  move.l d2,d4    ; z sin
  8960.  move.l d4,d6
  8961.  asr.l #1,d6
  8962.  add.l d4,d6
  8963.  add.l d3,d4
  8964.  neg.l d4    ; start x
  8965.  
  8966.  asr.l #1,d6    ; zsin/2
  8967.  sub.l d6,d5    ; start z
  8968.  
  8969.  add.l sxoff,d4
  8970.  add.l szoff,d5
  8971.  
  8972.  tst.b FULLSCR
  8973.  beq.s .nob
  8974.  
  8975.  moveq #0,d6
  8976.  move.w leftedge(pc),d6
  8977.  beq.s .nomultleftB
  8978.  
  8979.  add.l d6,d6
  8980.  divs #3,d6
  8981.  ext.l d6
  8982.  
  8983.  move.l d1,a4
  8984.  move.l d2,a5
  8985.  
  8986.  muls.l d6,d1
  8987.  asr.l #7,d1
  8988.  add.l d1,d4
  8989.  
  8990.  muls.l d6,d2
  8991.  asr.l #7,d2
  8992.  add.l d2,d5
  8993.  move.l a4,d1
  8994.  move.l a5,d2
  8995.  
  8996.  move.w leftedge(pc),d6
  8997.  
  8998. .nomultleftB:
  8999.  
  9000.  move.w d4,startsmoothx
  9001.  move.w d5,startsmoothz
  9002.  
  9003.  asr.l #8,d4
  9004.  asl.l #8,d5
  9005. ; add.w szoff,d5
  9006. ; add.w sxoff,d4
  9007. ; and.w #63,d4
  9008. ; and.w #63*256,d5
  9009.  
  9010.  move.w d4,d5
  9011.  
  9012.  asr.l #6,d1
  9013.  asr.l #6,d2
  9014.  divs.l #3,d1
  9015.  divs.l #3,d2
  9016.  
  9017.  bra.s doneallmult
  9018.  
  9019. .nob 
  9020.  
  9021.  moveq #0,d6
  9022.  move.w leftedge(pc),d6
  9023.  beq.s nomultleft
  9024.  
  9025.  move.l d1,a4
  9026.  move.l d2,a5
  9027.  
  9028.  muls.l d6,d1
  9029.  asr.l #7,d1
  9030.  add.l d1,d4
  9031.  
  9032.  muls.l d6,d2
  9033.  asr.l #7,d2
  9034.  add.l d2,d5
  9035.  move.l a4,d1
  9036.  move.l a5,d2
  9037.  
  9038.  move.w leftedge(pc),d6
  9039.  
  9040. nomultleft:
  9041.  
  9042.  move.w d4,startsmoothx
  9043.  move.w d5,startsmoothz
  9044.  
  9045.  asr.l #8,d4
  9046.  asl.l #8,d5
  9047.  
  9048.  
  9049. ; add.w szoff,d5
  9050. ; add.w sxoff,d4
  9051. ; and.w #63,d4
  9052. ; and.w #63*256,d5
  9053.  
  9054.  move.w d4,d5
  9055.  
  9056.  asr.l #7,d1
  9057.  asr.l #7,d2
  9058. ; divs.l #3,d1
  9059. ; divs.l #3,d2
  9060.  
  9061. doneallmult:
  9062.  
  9063.  move.w d1,a4
  9064.  move.w d2,a5
  9065.  asl.l #8,d2
  9066. ; and.w #%0011111100000000,d2
  9067.  asr.l #8,d1
  9068.  move.w d1,d2
  9069.  ifeq CHEESEY
  9070.  move.l #$3fff3fff,d1
  9071.  endc
  9072.  ifne CHEESEY
  9073.  move.l #$1fff1fff,d1
  9074.  endc
  9075.  and.l d1,d5
  9076. ; swap d5
  9077. ; move.w startsmoothz,d5
  9078. ; swap d5
  9079. ; swap d2
  9080. ; move.w a5,d2
  9081. ; swap d2
  9082.  
  9083. ***********************************
  9084.  
  9085.  
  9086.  tst.b DOUBLEWIDTH
  9087.  beq .nodoub
  9088.  
  9089.  move.l #0,FIRSTLEN
  9090.  move.w #0,THIRDLEN
  9091.  
  9092.  and.b #$fe,d6
  9093.  
  9094.  move.w d6,a2
  9095.  moveq #0,d0 
  9096.  move.w rightedge(pc),d3 
  9097.  lea (a3,d6.w*2),a3 
  9098.  move.w d3,d7
  9099.  sub.w a2,d7
  9100.  asr.w #1,d7
  9101.  
  9102.  move.w a2,d3
  9103.  asr.w #1,d3
  9104.  
  9105.  move.w d3,d0
  9106.  asr.w #5,d0
  9107.  asl.w #2,d0
  9108.  add.w d0,a3    ; starting pos.
  9109.  
  9110.  asl.w #3,d0
  9111.  sub.w d0,d3    ; modulo 32
  9112.  
  9113.  neg.w d3
  9114.  add.w #32,d3    ; remainder in strip
  9115.  
  9116.  cmp.w d7,d3
  9117.  bge.s .allinonestrip
  9118.  
  9119. ; The damn thing overlaps the end of this strip.
  9120.  
  9121.  sub.w d3,d7    ; remaining width.
  9122.  move.w d3,FIRSTLEN
  9123.  
  9124.  cmp.w #32,d7
  9125.  ble.s .allintwostrips
  9126.  
  9127.  move.w #32,SECLEN
  9128.  sub.w #32,d7
  9129.  move.w d7,THIRDLEN
  9130.  bra .donestrips
  9131.  
  9132. .allintwostrips
  9133.  move.w d7,SECLEN
  9134.  bra .donestrips
  9135.  
  9136. .allinonestrip
  9137.  move.w d7,FIRSTLEN
  9138.  
  9139. .donestrips:
  9140.  moveq #0,d0
  9141.  move.w startsmoothx,d3
  9142.  
  9143.  tst.b usewater
  9144.  bne texturedwaterDOUB
  9145. ; tst.b gourfloor
  9146.  bra gouraudfloorDOUB
  9147.  
  9148. .whichthird:
  9149. val SET 32
  9150.  REPT 32
  9151.  dc.b 0,val
  9152. val SET val-1
  9153.  ENDR 
  9154. val SET 32
  9155.  REPT 32
  9156.  dc.b 4,val
  9157. val SET val-1
  9158.  ENDR 
  9159. val SET 32
  9160.  REPT 32
  9161.  dc.b 8,val
  9162. val SET val-1
  9163.  ENDR 
  9164.  
  9165. .nodoub:
  9166.  
  9167.  move.w d6,a2
  9168.  moveq #0,d0 
  9169.  move.w rightedge(pc),d3 
  9170.  lea (a3,a2.w),a3 
  9171.  move.w d3,d7
  9172.  sub.w a2,d7
  9173.  
  9174. intofirststrip:
  9175. allintofirst:
  9176.  
  9177.  move.w startsmoothx,d3
  9178.  
  9179. tstwat:
  9180.  
  9181.  tst.b usewater
  9182.  bne texturedwater
  9183. ; tst.b gourfloor
  9184.  bra gouraudfloor
  9185.  
  9186.  
  9187.  
  9188. ******************************
  9189. * BumpMap the floor/ceiling! *
  9190.  tst.b usebumps
  9191.  bne.s BumpMap
  9192. ******************************
  9193.  
  9194. ordinary:
  9195.  moveq #0,d0
  9196.  
  9197.  dbra d7,acrossscrn
  9198.  rts
  9199.  
  9200. usebumps: dc.w $0
  9201. smoothbumps: dc.w $0
  9202. gourfloor: dc.w 0
  9203.  
  9204.  include "ab3:CHEESESAUCE/bumpmap.s"
  9205.  
  9206.  CNOP 0,4
  9207. backbefore:
  9208.  and.w d1,d5
  9209.  move.b (a0,d5.w*4),d0
  9210.  add.w a4,d3
  9211.  addx.l d6,d5
  9212.  move.w (a1,d0.w*2),(a3)
  9213.  addq #4,a3
  9214.  dbcs d7,acrossscrn
  9215.  dbcc d7,backbefore
  9216.  bra.s past1
  9217.  
  9218. acrossscrn:
  9219.  and.w d1,d5
  9220.  move.b (a0,d5.w*4),d0
  9221.  add.w a4,d3
  9222.  addx.l d2,d5
  9223.  move.w (a1,d0.w*2),(a3)
  9224.  addq #4,a3
  9225.  dbcs d7,acrossscrn
  9226.  dbcc d7,backbefore
  9227. past1:
  9228.  bcc.s gotoacross
  9229.  
  9230.  move.w d4,d7
  9231.  bne.s .notdoneyet
  9232.  rts
  9233. .notdoneyet:
  9234.  
  9235.  cmp.w #32,d7
  9236.  ble.s .notoowide
  9237.  move.w #32,d7
  9238. .notoowide
  9239.  sub.w d7,d4  
  9240.  addq #4,a3
  9241.  
  9242.  dbra d7,backbefore
  9243.  rts
  9244.  
  9245.  
  9246. gotoacross:
  9247.  
  9248.  move.w d4,d7
  9249.  bne.s .notdoneyet
  9250.  rts
  9251. .notdoneyet:
  9252.  
  9253.  cmp.w #32,d7
  9254.  ble.s .notoowide
  9255.  move.w #32,d7
  9256. .notoowide
  9257.  sub.w d7,d4  
  9258.  addq #4,a3
  9259.  
  9260.  dbra d7,acrossscrn
  9261.  rts
  9262.  
  9263. leftbright: dc.l 0
  9264. brightspd: dc.l 0
  9265.  
  9266. FIRSTLEN: dc.w 0
  9267. SECLEN: dc.w 0
  9268. THIRDLEN: dc.w 0
  9269.  
  9270. gouraudfloor:
  9271.  
  9272.  move.w leftbright,d0
  9273.  move.l d1,d4
  9274.  move.w brightspd,d1
  9275.  
  9276.  
  9277.  move.w FIRSTLEN,d7
  9278.  bsr dgf
  9279.  move.w SECLEN,d7
  9280.  beq.s .don
  9281.  addq #4,a3
  9282.  bsr dgf
  9283.  move.w THIRDLEN,d7
  9284.  beq.s .don
  9285.  addq #4,a3
  9286.  bra dgf
  9287.  
  9288. .don:
  9289.  rts
  9290.  
  9291. dgf:
  9292.  move.w d7,d3
  9293.  asr.w #1,d7
  9294.  btst #0,d3
  9295.  beq.s .nosingle1
  9296.  move.w d5,d3
  9297.  move.l d5,d6
  9298.  lsr.w #8,d3
  9299.  swap d6
  9300.  move.b d3,d6
  9301.  move.w d0,d3
  9302.  ifeq CHEESEY
  9303.  move.b (a0,d6.w*4),d3
  9304.  endc
  9305.  ifne CHEESEY
  9306.  move.b (a0,d6.w),d3
  9307.  endc
  9308.  
  9309.  add.w d1,d0
  9310.  add.l d2,d5
  9311.  and.l d4,d5
  9312.  move.w (a1,d3.w*2),(a3)
  9313.  addq #4,a3
  9314. .nosingle1
  9315.  
  9316.  move.w d7,d3
  9317.  asr.w #1,d7
  9318.  btst #0,d3
  9319.  beq.s .nosingle2
  9320.  move.w d5,d3
  9321.  move.l d5,d6
  9322.  lsr.w #8,d3
  9323.  swap d6
  9324.  move.b d3,d6
  9325.  move.w d0,d3
  9326.  ifeq CHEESEY
  9327.  move.b (a0,d6.w*4),d3
  9328.  endc
  9329.  ifne CHEESEY
  9330.  move.b (a0,d6.w),d3
  9331.  endc
  9332.  add.w d1,d0
  9333.  add.l d2,d5
  9334.  and.l d4,d5
  9335.  move.l d5,d6
  9336.  swap d6
  9337.  move.w (a1,d3.w*2),(a3)
  9338.  addq #4,a3
  9339.  move.w d5,d3
  9340.  lsr.w #8,d3
  9341.  move.b d3,d6
  9342.  move.w d0,d3
  9343.  ifeq CHEESEY
  9344.  move.b (a0,d6.w*4),d3
  9345.  endc
  9346.  ifne CHEESEY
  9347.  move.b (a0,d6.w),d3
  9348.  endc
  9349.  add.w d1,d0
  9350.  add.l d2,d5
  9351.  and.l d4,d5
  9352.  move.w (a1,d3.w*2),(a3)
  9353.  addq #4,a3
  9354.  
  9355. .nosingle2
  9356.  
  9357.  move.l d5,d6
  9358.  swap d6
  9359.  
  9360.  dbra d7,acrossscrngour
  9361.  rts
  9362.  
  9363.  CNOP 0,4
  9364.  
  9365. acrossscrngour:
  9366.  move.w d5,d3
  9367.  lsr.w #8,d3
  9368.  move.b d3,d6
  9369.  move.w d0,d3
  9370.  ifeq CHEESEY
  9371.  move.b (a0,d6.w*4),d3
  9372.  endc
  9373.  ifne CHEESEY
  9374.  move.b (a0,d6.w),d3
  9375.  endc
  9376.  add.w d1,d0
  9377.  add.l d2,d5
  9378.  and.l d4,d5
  9379.  move.l d5,d6
  9380.  swap d6
  9381.  move.b (a1,d3.w),(a3)
  9382.  addq #4,a3
  9383.  move.w d5,d3
  9384.  lsr.w #8,d3
  9385.  move.b d3,d6
  9386.  move.w d0,d3
  9387.  ifeq CHEESEY
  9388.  move.b (a0,d6.w*4),d3
  9389.  endc
  9390.  ifne CHEESEY
  9391.  move.b (a0,d6.w),d3
  9392.  endc
  9393.  add.w d1,d0
  9394.  add.l d2,d5
  9395.  and.l d4,d5
  9396.  move.l d5,d6
  9397.  swap d6
  9398.  move.b (a1,d3.w),(a3)
  9399.  addq #4,a3
  9400.  move.w d5,d3
  9401.  lsr.w #8,d3
  9402.  move.b d3,d6
  9403.  move.w d0,d3
  9404.  ifeq CHEESEY
  9405.  move.b (a0,d6.w*4),d3
  9406.  endc
  9407.  ifne CHEESEY
  9408.  move.b (a0,d6.w),d3
  9409.  endc
  9410.  add.w d1,d0
  9411.  add.l d2,d5
  9412.  and.l d4,d5
  9413.  move.l d5,d6
  9414.  swap d6
  9415.  move.b (a1,d3.w),(a3)
  9416.  addq #4,a3
  9417.  move.w d5,d3
  9418.  lsr.w #8,d3
  9419.  move.b d3,d6
  9420.  move.w d0,d3
  9421.  ifeq CHEESEY
  9422.  move.b (a0,d6.w*4),d3
  9423.  endc
  9424.  ifne CHEESEY
  9425.  move.b (a0,d6.w),d3
  9426.  endc
  9427.  add.w d1,d0
  9428.  add.l d2,d5
  9429.  and.l d4,d5
  9430.  move.l d5,d6
  9431.  swap d6
  9432.  move.b (a1,d3.w),(a3)
  9433.  addq #4,a3
  9434.  dbra d7,acrossscrngour
  9435.  
  9436.  rts
  9437.  
  9438.  
  9439. gouraudfloorDOUB:
  9440.  
  9441.  move.w leftbright,d0
  9442.  move.l d1,d4
  9443.  move.w brightspd,d1
  9444.  add.w d1,d1
  9445.  add.l d2,d2
  9446.  
  9447.  
  9448. ; move.l frompt,a3
  9449.  
  9450.  move.w FIRSTLEN,d7
  9451.  bsr dgfD
  9452.  move.w SECLEN,d7
  9453.  beq.s .don
  9454.  addq #4,a3
  9455.  bsr dgfD
  9456.  move.w THIRDLEN,d7
  9457.  beq.s .don
  9458.  addq #4,a3
  9459.  bra dgfD
  9460.  
  9461. .don:
  9462.  rts
  9463.  
  9464. dgfD:
  9465.  move.w d7,d3
  9466.  asr.w #1,d7
  9467.  btst #0,d3
  9468.  beq.s .nosingle1
  9469.  move.w d5,d3
  9470.  move.l d5,d6
  9471.  lsr.w #8,d3
  9472.  swap d6
  9473.  move.b d3,d6
  9474.  move.w d0,d3
  9475.  ifeq CHEESEY
  9476.  move.b (a0,d6.w*4),d3
  9477.  endc
  9478.  ifne CHEESEY
  9479.  move.b (a0,d6.w),d3
  9480.  endc
  9481.  add.w d1,d0
  9482.  add.l d2,d5
  9483.  and.l d4,d5
  9484.  move.w (a1,d3.w*2),(a3)
  9485.  addq #4,a3
  9486. .nosingle1
  9487.  
  9488.  move.w d7,d3
  9489.  asr.w #1,d7
  9490.  btst #0,d3
  9491.  beq.s .nosingle2
  9492.  move.w d5,d3
  9493.  move.l d5,d6
  9494.  lsr.w #8,d3
  9495.  swap d6
  9496.  move.b d3,d6
  9497.  move.w d0,d3
  9498.  ifeq CHEESEY
  9499.  move.b (a0,d6.w*4),d3
  9500.  endc
  9501.  ifne CHEESEY
  9502.  move.b (a0,d6.w),d3
  9503.  endc
  9504.  add.w d1,d0
  9505.  add.l d2,d5
  9506.  and.l d4,d5
  9507.  move.l d5,d6
  9508.  swap d6
  9509.  move.w (a1,d3.w*2),(a3)
  9510.  addq #4,a3
  9511.  move.w d5,d3
  9512.  lsr.w #8,d3
  9513.  move.b d3,d6
  9514.  move.w d0,d3
  9515.  ifeq CHEESEY
  9516.  move.b (a0,d6.w*4),d3
  9517.  endc
  9518.  ifne CHEESEY
  9519.  move.b (a0,d6.w),d3
  9520.  endc
  9521.  add.w d1,d0
  9522.  add.l d2,d5
  9523.  and.l d4,d5
  9524.  move.w (a1,d3.w*2),(a3)
  9525.  addq #4,a3
  9526.  
  9527. .nosingle2
  9528.  
  9529.  move.l d5,d6
  9530.  swap d6
  9531.  
  9532.  dbra d7,acrossscrngourD
  9533.  rts
  9534.  
  9535.  CNOP 0,4
  9536.  
  9537. acrossscrngourD:
  9538.  move.w d5,d3
  9539.  lsr.w #8,d3
  9540.  move.b d3,d6
  9541.  move.w d0,d3
  9542.  ifeq CHEESEY
  9543.  move.b (a0,d6.w*4),d3
  9544.  endc
  9545.  ifne CHEESEY
  9546.  move.b (a0,d6.w),d3
  9547.  endc
  9548.  add.w d1,d0
  9549.  add.l d2,d5
  9550.  and.l d4,d5
  9551.  move.l d5,d6
  9552.  swap d6
  9553.  move.w (a1,d3.w*2),(a3)
  9554.  addq #4,a3
  9555.  move.w d5,d3
  9556.  lsr.w #8,d3
  9557.  move.b d3,d6
  9558.  move.w d0,d3
  9559.  ifeq CHEESEY
  9560.  move.b (a0,d6.w*4),d3
  9561.  endc
  9562.  ifne CHEESEY
  9563.  move.b (a0,d6.w),d3
  9564.  endc
  9565.  add.w d1,d0
  9566.  add.l d2,d5
  9567.  and.l d4,d5
  9568.  move.l d5,d6
  9569.  swap d6
  9570.  move.w (a1,d3.w*2),(a3)
  9571.  addq #4,a3
  9572.  move.w d5,d3
  9573.  lsr.w #8,d3
  9574.  move.b d3,d6
  9575.  move.w d0,d3
  9576.  ifeq CHEESEY
  9577.  move.b (a0,d6.w*4),d3
  9578.  endc
  9579.  ifne CHEESEY
  9580.  move.b (a0,d6.w),d3
  9581.  endc
  9582.  add.w d1,d0
  9583.  add.l d2,d5
  9584.  and.l d4,d5
  9585.  move.l d5,d6
  9586.  swap d6
  9587.  move.w (a1,d3.w*2),(a3)
  9588.  addq #4,a3
  9589.  move.w d5,d3
  9590.  lsr.w #8,d3
  9591.  move.b d3,d6
  9592.  move.w d0,d3
  9593.  ifeq CHEESEY
  9594.  move.b (a0,d6.w*4),d3
  9595.  endc
  9596.  ifne CHEESEY
  9597.  move.b (a0,d6.w),d3
  9598.  endc
  9599.  add.w d1,d0
  9600.  add.l d2,d5
  9601.  and.l d4,d5
  9602.  move.l d5,d6
  9603.  swap d6
  9604.  move.w (a1,d3.w*2),(a3)
  9605.  addq #4,a3
  9606.  dbra d7,acrossscrngourD
  9607.  
  9608.  rts
  9609.  
  9610.  
  9611. ;backbeforegour:
  9612. ; and.w #63*256+63,d5
  9613. ; move.b (a0,d5.w*4),d0
  9614. ; add.l d1,d0
  9615. ; bcc.s .nomoreb
  9616. ; add.w #256,d0
  9617. ;.nomoreb:
  9618. ; add.w a4,d3
  9619. ; move.w (a1,d0.w*2),(a3)+
  9620. ; addx.l d6,d5
  9621. ; dbcs d7,acrossscrngour
  9622. ; dbcc d7,backbeforegour
  9623. ; rts
  9624. ; bra.s past1gour
  9625.  
  9626. ;acrossscrngour:
  9627. ; and.l #$3f3f,d5 
  9628. ; move.b (a0,d5.w*4),d0
  9629. ; add.l d1,d0
  9630. ; bcc.s .nomoreb
  9631. ; add.w #256,d0
  9632. ;.nomoreb:
  9633. ; add.w a4,d3
  9634. ; move.w (a1,d0.w*2),(a3)+
  9635. ; addx.l d2,d5
  9636. ; dbcs d7,acrossscrngour
  9637. ; dbcc d7,backbeforegour
  9638. ;past1gour:
  9639. ; rts
  9640.  
  9641.  move.w d4,d7
  9642.  bne.s .notdoneyet
  9643.  move.l d0,leftbright
  9644.  
  9645.  rts
  9646. .notdoneyet:
  9647.  
  9648.  cmp.w #32,d7
  9649.  ble.s .notoowide
  9650.  move.w #32,d7
  9651. .notoowide
  9652.  sub.w d7,d4  
  9653.  addq #4,a3
  9654.  
  9655. ; dbra d7,backbeforegour
  9656.  rts
  9657.  
  9658.  
  9659. gotoacrossgour:
  9660.  
  9661.  move.w d4,d7
  9662.  bne.s .notdoneyet
  9663.  rts
  9664. .notdoneyet:
  9665.  
  9666.  cmp.w #32,d7
  9667.  ble.s .notoowide
  9668.  move.w #32,d7
  9669. .notoowide
  9670.  sub.w d7,d4  
  9671.  addq #4,a3
  9672.  
  9673.  dbra d7,acrossscrngour
  9674.  rts
  9675.  
  9676.  
  9677. waterpt: dc.l waterlist
  9678.  
  9679. waterlist:
  9680.  dc.l waterfile
  9681.  dc.l waterfile+2
  9682.  dc.l waterfile+256
  9683.  dc.l waterfile+256+2
  9684.  dc.l waterfile+512
  9685.  dc.l waterfile+512+2
  9686.  dc.l waterfile+768
  9687.  dc.l waterfile+768+2
  9688. ; dc.l waterfile+768
  9689. ; dc.l waterfile+512+2
  9690. ; dc.l waterfile+512
  9691. ; dc.l waterfile+256+2
  9692. ; dc.l waterfile+256
  9693. ; dc.l waterfile+2
  9694. endwaterlist:
  9695.  
  9696. watertouse: dc.l waterfile
  9697.  
  9698. wtan: dc.w 0
  9699. wateroff: dc.l 0
  9700.  
  9701. REFLECTIONWATER:
  9702.  
  9703.  move.l d1,d4
  9704.  
  9705.  add.l wateroff,d5
  9706.  
  9707.  move.l #brightentab,a1
  9708.  move.l dst,d0
  9709.  clr.b d0
  9710.  
  9711.  add.w d0,d0
  9712.  cmp.w #12*512,d0
  9713.  blt.s .notoowater
  9714.  move.w #12*512,d0
  9715.  
  9716. .notoowater:
  9717.   
  9718.  adda.w d0,a1
  9719.  
  9720.  move.l dst,d0
  9721.  asl.w #7,d0
  9722.  add.w wtan,d0
  9723.  and.w #8191,d0
  9724.  move.l #SineTable,a0
  9725.  move.w (a0,d0.w),d0
  9726.  ext.l d0
  9727.  
  9728.  move.l dst,d3
  9729.  add.w #300,d3
  9730.  divs d3,d0
  9731.  asr.w #5,d0
  9732.  addq #4,d0
  9733.  cmp.w disttobot,d0
  9734.  blt.s oknotoffbotototr
  9735.  
  9736.  move.w disttobot,d0
  9737.  subq #1,d0
  9738.  
  9739. oknotoffbotototr
  9740.  
  9741. ; move.w dst,d3
  9742. ; asr.w #7,d3
  9743. ; add.w d3,d0
  9744.  
  9745.  muls #320,d0
  9746.  tst.w above
  9747.  beq.s nonnnnnegr
  9748.  neg.l d0
  9749.  
  9750. nonnnnnegr:
  9751.  
  9752.  move.l d0,a6
  9753.  
  9754.  move.l watertouse,a0
  9755.  
  9756. ; move.l #mixtab,a5
  9757.  
  9758.  moveq #0,d1
  9759.  
  9760.  move.w startsmoothx,d3
  9761.  dbra d7,acrossscrnwr
  9762.  rts
  9763.  
  9764. backbeforewr:
  9765.  and.w d1,d5 
  9766.  move.w (a0,d5.w*4),d0
  9767.  move.b (a3,a6.w),d0
  9768.  move.w (a1,d0.w),(a3)+
  9769.  add.w a4,d3
  9770.  addx.l d6,d5
  9771.  dbcs d7,acrossscrnwr
  9772.  dbcc d7,backbeforewr
  9773.  rts
  9774.  
  9775. acrossscrnwr:
  9776.  move.w d5,d3
  9777.  move.l d5,d6
  9778.  lsr.w #8,d3
  9779.  swap d6
  9780.  move.b d3,d6
  9781.  move.w (a0,d6.w*4),d0
  9782.  add.l d2,d5
  9783.  move.w (a4,a6.w),d1
  9784.  addq #2,a4
  9785.  move.b (a3,a6.w),d1
  9786.  move.b (a5,d1.l),d0
  9787.  and.l d4,d5
  9788.  move.w (a1,d0.w),(a3)+
  9789.  dbra d7,acrossscrnwr
  9790.  rts
  9791.  
  9792. texturedwater:
  9793.  
  9794.  move.l d1,d4
  9795.  
  9796.  add.l wateroff,d5
  9797.  
  9798.  move.l #brightentab,a1
  9799.  move.l dst,d0
  9800.  asr.l #1,d0
  9801.  clr.b d0
  9802.  
  9803.  add.w d0,d0
  9804.  cmp.w #9*512,d0
  9805.  blt.s .notoowater
  9806.  move.w #9*512,d0
  9807. .notoowater:
  9808.   
  9809.  adda.w d0,a1
  9810.  
  9811.  move.l dst,d0
  9812.  asl.w #7,d0
  9813.  add.w wtan,d0
  9814.  and.w #8191,d0
  9815.  move.l #SineTable,a0
  9816.  move.w (a0,d0.w),d0
  9817.  ext.l d0
  9818.  
  9819.  move.l dst,d3
  9820.  add.w #300,d3
  9821.  divs d3,d0
  9822.  asr.w #5,d0
  9823.  addq #4,d0
  9824.  cmp.w disttobot,d0
  9825.  blt.s oknotoffbototot
  9826.  
  9827.  move.w disttobot,d0
  9828.  subq #1,d0
  9829.  
  9830. oknotoffbototot
  9831.  
  9832. ; move.w dst,d3
  9833. ; asr.w #7,d3
  9834. ; add.w d3,d0
  9835.  
  9836. ; tst.b DOUBLEHEIGHT
  9837. ; beq.s .nodoub
  9838. ; and.b #$fe,d0
  9839. ;.nodoub:
  9840.  
  9841.  asr.w #1,d0
  9842.  
  9843.  muls #104*4,d0
  9844.  tst.w above
  9845.  beq.s nonnnnneg
  9846.  neg.l d0
  9847.  
  9848. nonnnnneg:
  9849.  
  9850.  move.l d0,a6
  9851.  
  9852.  move.l watertouse,a0
  9853.  
  9854.  move.w startsmoothx,d3
  9855.  
  9856.  move.w FIRSTLEN,d7
  9857.  bsr startwater
  9858.  move.w SECLEN,d7
  9859.  beq.s .endwater
  9860.  addq #4,a3
  9861.  bsr startwater
  9862.  addq #4,a3
  9863.  move.w THIRDLEN,d7
  9864.  bne.s startwater
  9865.  
  9866. .endwater:
  9867.  rts
  9868.  
  9869.  
  9870. startwater:
  9871.  
  9872.  dbra d7,acrossscrnw
  9873.  rts
  9874.  
  9875. backbeforew:
  9876.  and.w d1,d5
  9877.  move.w (a0,d5.w*4),d0
  9878.  move.b 1(a3,a6.w),d0
  9879.  move.w (a1,d0.w*2),(a3)
  9880.  addq #4,a3
  9881.  add.w a4,d3
  9882.  addx.l d6,d5
  9883.  dbcs d7,acrossscrnw
  9884.  dbcc d7,backbeforew
  9885.  rts
  9886.  
  9887. acrossscrnw:
  9888.  move.w d5,d3
  9889.  move.l d5,d6
  9890.  lsr.w #8,d3
  9891.  swap d6
  9892.  move.b d3,d6
  9893.  move.w (a0,d6.w*4),d0
  9894.  add.l d2,d5
  9895.  move.b 1(a3,a6.w),d0
  9896.  and.l d4,d5
  9897.  move.w (a1,d0.w),(a3)
  9898.  addq #4,a3
  9899.  dbra d7,acrossscrnw
  9900.  rts
  9901.  
  9902.  
  9903. texturedwaterDOUB:
  9904.  
  9905.  move.l d1,d4
  9906.  
  9907.  add.l wateroff,d5
  9908.  
  9909.  move.l #brightentab,a1
  9910.  move.l dst,d0
  9911.  asr.l #1,d0
  9912.  clr.b d0
  9913.  
  9914.  add.w d0,d0
  9915.  cmp.w #9*512,d0
  9916.  blt.s .notoowater
  9917.  move.w #9*512,d0
  9918. .notoowater:
  9919.   
  9920.  adda.w d0,a1
  9921.  
  9922.  move.l dst,d0
  9923.  asl.w #7,d0
  9924.  add.w wtan,d0
  9925.  and.w #8191,d0
  9926.  move.l #SineTable,a0
  9927.  move.w (a0,d0.w),d0
  9928.  ext.l d0
  9929.  
  9930.  move.l dst,d3
  9931.  add.w #300,d3
  9932.  divs d3,d0
  9933.  asr.w #5,d0
  9934.  addq #4,d0
  9935.  cmp.w disttobot,d0
  9936.  blt.s .oknotoffbototot
  9937.  
  9938.  move.w disttobot,d0
  9939.  subq #1,d0
  9940.  
  9941. .oknotoffbototot
  9942.  
  9943. ; move.w dst,d3
  9944. ; asr.w #7,d3
  9945. ; add.w d3,d0
  9946.  
  9947.  tst.b DOUBLEHEIGHT
  9948.  beq.s .nodoub
  9949.  and.b #$fe,d0
  9950. .nodoub:
  9951.  
  9952.  muls #320,d0
  9953.  tst.w above
  9954.  beq.s .nonnnnneg
  9955.  neg.l d0
  9956.  
  9957. .nonnnnneg:
  9958.  
  9959.  move.l d0,a6
  9960.  
  9961.  move.l watertouse,a0
  9962.  
  9963.  add.l d2,d2
  9964.  
  9965.  move.w startsmoothx,d3
  9966.  dbra d7,acrossscrnwD
  9967.  rts
  9968.  
  9969.  
  9970. acrossscrnwD:
  9971.  move.w d5,d3
  9972.  move.l d5,d6
  9973.  lsr.w #8,d3
  9974.  swap d6
  9975.  move.b d3,d6
  9976.  move.w (a0,d6.w*4),d0
  9977.  add.l d2,d5
  9978.  move.b (a3,a6.w),d0
  9979.  and.l d4,d5
  9980.  move.w (a1,d0.w),(a3)+
  9981.  dbra d7,acrossscrnwD
  9982.  rts
  9983.  
  9984.  
  9985. usewater: dc.w 0
  9986.  dc.w 0
  9987. startsmoothx: dc.w 0
  9988.  dc.w 0
  9989. startsmoothz: dc.w 0
  9990.  
  9991. ********************************
  9992. *
  9993.  include "AB3:CHEESESAUCE/ObjDrawHIRES.s"
  9994. *
  9995. ********************************
  9996.  
  9997. numframes:
  9998.  dc.w 0
  9999.  
  10000. alframe: dc.l 0
  10001.  
  10002. alan:
  10003.  dcb.l 8,0
  10004.  dcb.l 8,1
  10005.  dcb.l 8,2
  10006.  dcb.l 8,3
  10007. endalan:
  10008.  
  10009. alanptr: dc.l alan
  10010.  
  10011. Time2: dc.l 0
  10012. dispco:
  10013.  dc.w 0
  10014.  
  10015.  
  10016. key_interrupt:
  10017.         movem.l    d0-d7/a0-a6,-(sp)
  10018.  
  10019. ;        move.w    INTREQR,d0
  10020. ;        btst    #3,d0
  10021. ;        beq    .not_key
  10022.  
  10023.         move.b    $bfdd00,d0
  10024.         btst    #0,d0
  10025.         bne    .key_cont
  10026. ;        move.b    $bfed01,d0
  10027. ;        btst    #0,d0
  10028. ;        bne    .key_cont
  10029.     
  10030. ;        btst    #3,d0
  10031. ;        beq    .key_cont
  10032.  
  10033.         move.b    $bfec01,d0
  10034.         clr.b    $bfec01
  10035.  
  10036.         tst.b    d0
  10037.         beq    .key_cont
  10038.  
  10039. ;        bset    #6,$bfee01
  10040. ;        move.b    #$f0,$bfe401
  10041. ;        move.b    #$00,$bfe501
  10042. ;        bset    #0,$bfee01
  10043.  
  10044.  
  10045.         not.b    d0
  10046.         ror.b    #1,d0
  10047.         lea.l    KeyMap,a0
  10048.         tst.b    d0
  10049.         bmi.b    .key_up
  10050.         and.w    #$7f,d0
  10051. ;        add.w    #1,d0
  10052.         move.b    #$ff,(a0,d0.w)
  10053.         move.b    d0,lastpressed
  10054.  
  10055.         bra.b    .key_cont2
  10056. .key_up:
  10057.         and.w    #$7f,d0
  10058. ;        add.w    #1,d0
  10059.         move.b    #$00,(a0,d0.w)
  10060.  
  10061. .key_cont2
  10062. ;        btst    #0,$bfed01
  10063. ;        beq    .key_cont2
  10064. ;        move.b    #%00000000,$bfee01
  10065. ;        move.b    #%10001000,$bfed01
  10066.  
  10067. ;alt keys should not be independent so overlay ralt on lalt
  10068.  
  10069.         
  10070. .key_cont
  10071.  
  10072. ;        move.w    #$0008,INTREQ
  10073. .not_key:    ;lea.l    $dff000,a5
  10074.  
  10075. ;        lea.l    _keypressed(pc),a0
  10076. ;        move.b    101(a0),d0    ;read LALT
  10077. ;        or.b    102(a0),d0    ;blend it with RALT
  10078. ;        move.b    d0,127(a0)    ;save in combined position
  10079.  
  10080.         movem.l    (sp)+,d0-d7/a0-a6
  10081.  
  10082.         rts
  10083.  
  10084. lastpressed:    dc.b 0
  10085. KInt_CCode    Ds.b    1
  10086. KInt_Askey    Ds.b    1
  10087. KInt_OCode    Ds.w    1
  10088.  
  10089.  
  10090. OldSpace: dc.b 0
  10091. SpaceTapped: dc.b 0
  10092. PLR1_SPCTAP: dc.b 0
  10093. PLR2_SPCTAP: dc.b 0
  10094. PLR1_Ducked: dc.b 0
  10095. PLR2_Ducked: dc.b 0
  10096.  even
  10097.  
  10098.  include "ab3:CHEESESAUCE/PLR1CONTROL.s"
  10099.  include "ab3:CHEESESAUCE/PLR2CONTROL.s"
  10100.  include "ab3:CHEESESAUCE/FALL.s"
  10101.  
  10102. prot7: dc.w 0
  10103.  
  10104. GOTTOSEND: dc.w 0
  10105.  
  10106. OtherInter:
  10107.  move.w #$0010,$dff000+intreq
  10108.  movem.l d0-d7/a0-a6,-(a7)
  10109.  bra justshake
  10110.  
  10111.     cnop 0,4
  10112.  
  10113. Chan0inter:
  10114.  
  10115.     SAVEREGS
  10116.     jsr    .routine
  10117.     GETREGS
  10118.  
  10119. ;    move.w    #1024+'.',$dff030
  10120.     
  10121.     moveq #1,d0
  10122.     rts
  10123.  
  10124. .routine
  10125.  
  10126.     
  10127. ;w move.w #$0010,$dff000+intreq
  10128.  
  10129.  tst.b doanything
  10130.  bne dosomething
  10131.  
  10132.  movem.l d0-d7/a0-a6,-(a7)
  10133.  bra JUSTSOUNDS
  10134.  
  10135.  rts
  10136.  
  10137. tabheld: dc.w 0
  10138. ObjWork: ds.l 512
  10139. WORKPTR: dc.l 0
  10140. thistime: dc.w 0
  10141.  
  10142. DOALLANIMS:
  10143.  
  10144.  sub.b #1,thistime
  10145.  ble.s .okdosome
  10146.  rts
  10147.  
  10148. .okdosome:
  10149.  move.b #5,thistime
  10150.  
  10151.  
  10152.  move.l #ObjWork,a5
  10153.  move.l ObjectData,a0
  10154. Objectloop2:
  10155.  tst.w (a0)
  10156.  blt doneallobj2
  10157.  move.w 12(a0),d0
  10158.  blt doneobj2
  10159.  move.w d0,GraphicRoom(a0)
  10160.  tst.b worry(a0)
  10161.  beq.s doneobj2
  10162.  
  10163.  move.b 16(a0),d0
  10164.  cmp.b #1,d0
  10165.  blt JUMPALIENANIM
  10166. ; beq JUMPOBJECTANIM
  10167. ; cmp.b #2,d0
  10168. ; beq JUMPBULLET
  10169.  
  10170. doneobj2:
  10171.  
  10172.  adda.w #64,a0
  10173.  addq #8,a5
  10174.  bra Objectloop2
  10175.  
  10176. doneallobj2:
  10177.  rts
  10178.  
  10179. JUMPALIENANIM:
  10180.  
  10181.  moveq #0,d0
  10182.  move.b WhichAnim(a0),d0
  10183. ; 0=walking
  10184. ; 1=attacking
  10185. ; 2=getting hit
  10186. ; 3=dying
  10187.  
  10188.  cmp.b #1,d0
  10189.  blt.s ALWALK
  10190.  beq.s ALATTACK
  10191.  
  10192.  cmp.b #3,d0
  10193.  blt ALGETHIT
  10194.  beq ALDIE
  10195.  
  10196.  bra doneobj2
  10197.  
  10198. ALDIE
  10199.  move.l #10,d0
  10200.  bra intowalk
  10201.  
  10202. ALGETHIT:
  10203.  move.l #9,d0
  10204.  bra intowalk
  10205.  
  10206. ALATTACK:
  10207.  move.l #8,d0
  10208.  bra intowalk
  10209.  
  10210. AUXOBJ: dc.w 0
  10211.  
  10212. ALWALK:
  10213.  
  10214. ; jsr ViewpointToDraw
  10215. ; add.l d0,d0
  10216. ; 
  10217. ; move.l LINKFILE,a6
  10218. ; add.l #AlienStats,a6
  10219. ; moveq #0,d1
  10220. ; move.b TypeOfThing(a0),d1
  10221. ; muls #AlienStatLen,d1
  10222. ; add.l d1,a6
  10223. ; cmp.w #1,A_GFXType(a6)
  10224. ; bne.s NOSIDES2
  10225.  
  10226.  moveq #0,d0
  10227. intowalk:
  10228.  
  10229. NOSIDES2:
  10230.  
  10231.  move.b d0,2(a5)
  10232.  move.l LINKFILE,a6
  10233.  
  10234.  add.l #AlienAnimData,a6
  10235.  
  10236.  moveq #0,d1
  10237.  move.b TypeOfThing(a0),d1
  10238.  move.w .valtables+4(pc,d1.w*8),d1
  10239.  ext.l d1
  10240. ; muls #A_AnimLen,d1
  10241.  add.l d1,a6
  10242.  
  10243. ; move.l ANIMPOINTER,a6
  10244.  
  10245. ; muls #A_OptLen,d0
  10246.  move.w .valtables+2(pc,d0.w*8),d0
  10247.  add.w d0,a6
  10248.  
  10249.  move.w SecTimer(a0),d1
  10250.  move.w d1,d2
  10251. ; muls #A_FrameLen,d1
  10252.  move.w .valtables(pc,d1.w*8),d1
  10253.  
  10254.  moveq #0,d0
  10255.  move.b 5(a6,d1.w),d0
  10256.  beq.s .nosoundmake
  10257.  
  10258.  movem.l d0-d7/a0-a6,-(a7)
  10259.  subq #1,d0
  10260.  move.w d0,Samplenum
  10261.  clr.b notifplaying
  10262.  move.b 1(a0),IDNUM
  10263.  move.w #80,Noisevol
  10264.  move.l #ObjRotated,a1
  10265.  move.w (a0),d0
  10266.  lea (a1,d0.w*8),a1
  10267.  move.l (a1),Noisex
  10268.  jsr MakeSomeNoise
  10269.  movem.l (a7)+,d0-d7/a0-a6
  10270. .nosoundmake
  10271.  
  10272.  move.b 6(a6,d1.w),d0
  10273.  beq.s .noaction
  10274.  add.b #1,(a5)
  10275.  move.b d2,1(a5)
  10276. .noaction
  10277.  
  10278.  addq #1,d2
  10279.  
  10280.  moveq #0,d0
  10281.  move.b 7(a6,d1.w),d0
  10282.  beq .nospecial
  10283.  bra .special
  10284.  
  10285. .valtables:
  10286. val SET 0
  10287.  REPT 20
  10288.  dc.w A_FrameLen*val,A_OptLen*val
  10289.  dc.w A_AnimLen*val,0
  10290. val SET val+1
  10291.  ENDR
  10292.  
  10293. .special
  10294.  move.b d0,d3
  10295.  and.w #63,d3
  10296.  lsr.w #6,d0
  10297.  cmp.w #2,d0
  10298.  blt.s .storeval
  10299.  beq.s .randval
  10300.  
  10301.  sub.b #1,4(a5)
  10302.  beq.s .nospecial
  10303.  
  10304.  move.w d3,d2
  10305.  bra.s .nospecial
  10306.  
  10307. .randval:
  10308.  jsr GetRand
  10309.  divs d3,d0
  10310.  swap d0
  10311.  move.w d0,d3
  10312.  
  10313. .storeval:
  10314.  move.b d3,4(a5)
  10315. .nospecial:
  10316.  
  10317. ; move.w d2,d3
  10318.  move.w .valtables2(pc,d2.w*8),d3
  10319. ; muls #A_FrameLen,d3
  10320.  tst.b (a6,d3.w)
  10321.  bge.s .noendanim
  10322.  st 3(a5)
  10323.  move.w #0,d2
  10324. .noendanim
  10325.  move.w d2,SecTimer(a0)
  10326.  
  10327.  bra doneobj2
  10328.  
  10329. .valtables2:
  10330. val SET 0
  10331.  REPT 20
  10332.  dc.w A_FrameLen*val,A_OptLen*val
  10333.  dc.w A_AnimLen*val,0
  10334. val SET val+1
  10335.  ENDR
  10336.  
  10337.  
  10338. timetodamage: dc.w 0
  10339. SAVESAVE: dc.w 0
  10340.  
  10341. dosomething:
  10342.  
  10343.  
  10344.  
  10345.  addq.w #1,FramesToDraw
  10346.  movem.l d0-d7/a0-a6,-(a7)
  10347.  
  10348.  jsr NARRATOR
  10349.  
  10350.  bsr DOALLANIMS
  10351.  
  10352.  sub.w #1,timetodamage
  10353.  bgt.s .nodam
  10354.  
  10355.  move.w #100,timetodamage
  10356.  
  10357.  move.l PLR1_Roompt,a0
  10358.  move.w ToFloorNoise(a0),d0
  10359.  tst.b PLR1_StoodInTop
  10360.  beq.s .okinbot
  10361.  move.w ToUpperFloorNoise(a0),d0
  10362. .okinbot:
  10363.  
  10364.  move.l LINKFILE,a0
  10365.  add.l #FloorData,a0
  10366.  move.w (a0,d0.w*4),d0    ; damage. 
  10367.  move.l PLR1_Obj,a0
  10368.  add.b d0,damagetaken(a0)
  10369.  
  10370.  move.l PLR2_Roompt,a0
  10371.  move.w ToFloorNoise(a0),d0
  10372.  tst.b PLR2_StoodInTop
  10373.  beq.s .okinbot2
  10374.  move.w ToUpperFloorNoise(a0),d0
  10375. .okinbot2:
  10376.  
  10377.  move.l LINKFILE,a0
  10378.  add.l #FloorData,a0
  10379.  move.w (a0,d0.w*4),d0    ; damage. 
  10380.  
  10381.  move.l PLR2_Obj,a0
  10382.  add.b d0,damagetaken(a0)
  10383.  
  10384. .nodam:
  10385.  
  10386.  move.l #KeyMap,a5
  10387.  
  10388.  tst.b $42(a5)
  10389.  bne.s .tabprsd
  10390.  clr.b tabheld
  10391.  bra.s .noswitch
  10392.  
  10393. .tabprsd:
  10394.  tst.b tabheld
  10395.  bne.s .noswitch
  10396.  not.b MAPON
  10397.  st tabheld
  10398. .noswitch
  10399.  
  10400.  tst.b $3e(a5)
  10401.  sne d0
  10402.  tst.b $1e(a5)
  10403.  sne d1
  10404.  tst.b $2d(a5)
  10405.  sne d2
  10406.  tst.b $2f(a5)
  10407.  sne d3
  10408.  
  10409.  tst.b $3d(a5)
  10410.  sne d4
  10411.  tst.b $3f(a5)
  10412.  sne d5
  10413.  tst.b $1d(a5)
  10414.  sne d6
  10415.  tst.b $1f(a5)
  10416.  sne d7
  10417.  
  10418.  or.b d4,d0
  10419.  or.b d5,d0
  10420.  or.b d6,d1
  10421.  or.b d7,d1
  10422.  or.b d4,d2
  10423.  or.b d6,d2
  10424.  or.b d7,d3
  10425.  or.b d5,d3
  10426.  
  10427.  move.w MAPBRIGHT,d4
  10428.  add.w #2,d4
  10429.  clr.l d5
  10430.  bset d4,d5
  10431.  
  10432.  tst.b d0
  10433.  beq.s .nomapup
  10434.  sub.w d5,mapzoff
  10435. .nomapup 
  10436.  
  10437.  tst.b d1
  10438.  beq.s .nomapdown
  10439.  add.w d5,mapzoff
  10440. .nomapdown 
  10441.  
  10442.  tst.b d2
  10443.  beq.s .nomapleft
  10444.  add.w d5,mapxoff
  10445. .nomapleft 
  10446.  
  10447.  tst.b d3
  10448.  beq.s .nomapright
  10449.  sub.w d5,mapxoff
  10450. .nomapright 
  10451.  
  10452.  tst.b $2e(a5)
  10453.  beq.s .nomapcentre
  10454.  
  10455.  move.w #0,mapxoff
  10456.  move.w #0,mapzoff
  10457.  
  10458. .nomapcentre
  10459.  
  10460. ; move.w STOPOFFSET,d0
  10461. ; tst.b 27(a5)
  10462. ; beq.s .nolookup
  10463. ; sub.w #5,d0
  10464. ; cmp.w #-80,d0
  10465. ; bgt.s .nolookup
  10466. ; move.w #-80,d0
  10467. ;.nolookup:
  10468. ; tst.b 42(a5)
  10469. ; beq.s .nolookdown
  10470. ; add.w #5,d0
  10471. ; cmp.w #80,d0
  10472. ; blt.s .nolookdown
  10473. ; move.w #80,d0
  10474. ;.nolookdown:
  10475. ;
  10476. ; move.w d0,STOPOFFSET
  10477. ; neg.w d0
  10478. ; add.w #120,d0
  10479. ; move.w d0,SMIDDLEY
  10480. ; muls #320*2,d0
  10481. ; move.l d0,SBIGMIDDLEY
  10482.  
  10483.  
  10484. ; jsr INITREC
  10485. ; jsr RECEIVE
  10486.  
  10487. ; tst.l BUFFER
  10488. ; beq.s justshake
  10489. ; st GOTTOSEND
  10490. ; move.l #OtherInter,$6c
  10491.  
  10492. justshake:
  10493.  
  10494.  cmp.b #'b',Prefsfile+3
  10495.  bne.s .noback
  10496.  jsr mt_music
  10497. .noback:
  10498.  
  10499.  bra dontshowtime
  10500.  
  10501.  tst.b oktodisplay
  10502.  beq dontshowtime
  10503.  clr.b oktodisplay
  10504.  subq.w #1,dispco
  10505.  bgt dontshowtime
  10506.  move.w #10,dispco
  10507.  
  10508.  move.l #TimerScr+10,a0
  10509.  move.l TimeCount,d0
  10510.  bge.s timenotneg
  10511.  move.l #1111*256,d0
  10512. timenotneg:
  10513.  asr.l #8,d0
  10514.  move.l #digits,a1
  10515.  move.w #7,d2
  10516. digitlop
  10517.  divs #10,d0
  10518.  swap d0
  10519.  lea (a1,d0.w*8),a2
  10520.  move.b (a2)+,(a0)
  10521.  move.b (a2)+,24(a0)
  10522.  move.b (a2)+,24*2(a0)
  10523.  move.b (a2)+,24*3(a0)
  10524.  move.b (a2)+,24*4(a0)
  10525.  move.b (a2)+,24*5(a0)
  10526.  move.b (a2)+,24*6(a0)
  10527.  move.b (a2)+,24*7(a0)
  10528.  subq #1,a0
  10529.  swap d0
  10530.  ext.l d0
  10531.  dbra d2,digitlop
  10532.  
  10533.  move.l #TimerScr+10+24*10,a0
  10534.  move.l NumTimes,d0
  10535.  move.l #digits,a1
  10536.  move.w #3,d2
  10537. digitlop2
  10538.  divs #10,d0
  10539.  swap d0
  10540.  lea (a1,d0.w*8),a2
  10541.  move.b (a2)+,(a0)
  10542.  move.b (a2)+,24(a0)
  10543.  move.b (a2)+,24*2(a0)
  10544.  move.b (a2)+,24*3(a0)
  10545.  move.b (a2)+,24*4(a0)
  10546.  move.b (a2)+,24*5(a0)
  10547.  move.b (a2)+,24*6(a0)
  10548.  move.b (a2)+,24*7(a0)
  10549.  subq #1,a0
  10550.  swap d0
  10551.  ext.l d0
  10552.  dbra d2,digitlop2
  10553.  
  10554.  move.l #TimerScr+10+24*20,a0
  10555.  moveq #0,d0
  10556.  move.w FramesToDraw,d0
  10557.  move.l #digits,a1
  10558.  move.w #2,d2
  10559. digitlop3
  10560.  divs #10,d0
  10561.  swap d0
  10562.  lea (a1,d0.w*8),a2
  10563.  move.b (a2)+,(a0)
  10564.  move.b (a2)+,24(a0)
  10565.  move.b (a2)+,24*2(a0)
  10566.  move.b (a2)+,24*3(a0)
  10567.  move.b (a2)+,24*4(a0)
  10568.  move.b (a2)+,24*5(a0)
  10569.  move.b (a2)+,24*6(a0)
  10570.  move.b (a2)+,24*7(a0)
  10571.  subq #1,a0
  10572.  swap d0
  10573.  ext.l d0
  10574.  dbra d2,digitlop3
  10575.  
  10576. dontshowtime:
  10577.  
  10578.  
  10579.  move.l alanptr,a0
  10580.  move.l (a0)+,alframe
  10581.  cmp.l #endalan,a0
  10582.  blt.s nostartalan
  10583.  move.l #alan,a0
  10584. nostartalan:
  10585.  move.l a0,alanptr
  10586.  
  10587.  
  10588.  tst.b READCONTROLS
  10589.  beq nocontrols
  10590.  
  10591.  cmp.b #'s',mors
  10592.  beq control2
  10593.  
  10594.  tst.w PLAYERONEHEALTH
  10595.  bgt .propercontrol
  10596.  
  10597.  move.w #$f00,hitcol2
  10598.  move.w #$f00,hitcol
  10599.  move.l #PLR1_Obj,a0
  10600.  move.w #-1,12+128(a0)
  10601.  
  10602.  clr.b PLR1_fire
  10603.  clr.b PLR1_clicked
  10604.  move.w #0,ADDTOBOBBLE
  10605.  move.l #playercrouched,PLR1s_height
  10606.  move.w #-80,d0
  10607.  move.w d0,STOPOFFSET
  10608.  neg.w d0
  10609.  add.w TOTHEMIDDLE,d0
  10610.  move.w d0,SMIDDLEY
  10611.  asr.w #1,d0
  10612.  muls #104*4,d0
  10613.  move.l d0,SBIGMIDDLEY
  10614.  jsr PLR1_fall
  10615.  
  10616.  move.l PLR1s_xspdval,d6
  10617.  move.l PLR1s_zspdval,d7
  10618.  
  10619.  tst.b SLOWDOWN
  10620.  beq.s .nofriction
  10621.  
  10622.  neg.l d6
  10623.  ble.s .nobug1
  10624.  asr.l #3,d6
  10625.  add.l #1,d6
  10626.  bra.s .bug1
  10627. .nobug1
  10628.  asr.l #3,d6
  10629. .bug1:
  10630.  
  10631.  neg.l d7
  10632.  ble.s .nobug2
  10633.  asr.l #3,d7
  10634.  add.l #1,d7
  10635.  bra.s .bug2
  10636. .nobug2
  10637.  asr.l #3,d7
  10638. .bug2: 
  10639.  
  10640.  add.l d6,PLR1s_xspdval
  10641.  add.l d7,PLR1s_zspdval
  10642.  
  10643. .nofriction:
  10644.  move.l PLR1s_xspdval,d6
  10645.  move.l PLR1s_zspdval,d7
  10646.  add.l d6,PLR1s_xoff
  10647.  add.l d7,PLR1s_zoff
  10648.  
  10649.  move.w PLR1s_angspd,d3
  10650.  tst.b SLOWDOWN
  10651.  beq.s .nofric
  10652.  asr.w #2,d3
  10653.  bge.s .nneg
  10654.  addq #1,d3
  10655. .nneg:
  10656. .nofric:
  10657.  
  10658.  move.w d3,PLR1s_angspd
  10659.  add.w d3,PLR1s_angpos
  10660.  add.w d3,PLR1s_angpos
  10661.  and.w #8190,PLR1s_angpos
  10662.  
  10663.  bra nocontrols
  10664.  
  10665. .propercontrol:
  10666.  
  10667.  tst.b PLR1MOUSE
  10668.  beq.s PLR1_nomouse
  10669.  bsr PLR1_mouse_control
  10670. PLR1_nomouse:
  10671.  tst.b PLR1KEYS
  10672.  beq.s PLR1_nokeys
  10673.  bsr PLR1_keyboard_control
  10674. PLR1_nokeys:
  10675. ; tst.b PLR1PATH
  10676. ; beq.s PLR1_nopath
  10677. ; bsr PLR1_follow_path
  10678. ;PLR1_nopath:
  10679.  tst.b PLR1JOY
  10680.  beq.s PLR1_nojoy
  10681.  bsr PLR1_JoyStick_control
  10682. PLR1_nojoy: 
  10683.  bra nocontrols
  10684.  
  10685. control2:
  10686.  
  10687.  tst.w PLAYERTWOHEALTH
  10688.  bgt .propercontrol
  10689.  
  10690.  move.w #$f00,hitcol
  10691.  move.w #$f00,hitcol2
  10692.  move.l #PLR1_Obj,a0
  10693.  move.w #-1,12+128(a0)
  10694.  clr.b PLR2_fire
  10695.  move.w #0,ADDTOBOBBLE
  10696.  move.l #playercrouched,PLR2s_height
  10697.  move.w #-80,d0
  10698.  move.w d0,STOPOFFSET
  10699.  neg.w d0
  10700.  add.w TOTHEMIDDLE,d0
  10701.  move.w d0,SMIDDLEY
  10702.  asr.w #1,d0
  10703.  muls #104*4,d0
  10704.  move.l d0,SBIGMIDDLEY
  10705.  jsr PLR2_fall
  10706.  
  10707.  move.l PLR2s_xspdval,d6
  10708.  move.l PLR2s_zspdval,d7
  10709.  
  10710.  tst.b SLOWDOWN
  10711.  beq.s .nofriction
  10712.  
  10713.  neg.l d6
  10714.  ble.s .nobug1
  10715.  asr.l #3,d6
  10716.  add.l #1,d6
  10717.  bra.s .bug1
  10718. .nobug1
  10719.  asr.l #3,d6
  10720. .bug1:
  10721.  
  10722.  neg.l d7
  10723.  ble.s .nobug2
  10724.  asr.l #3,d7
  10725.  add.l #1,d7
  10726.  bra.s .bug2
  10727. .nobug2
  10728.  asr.l #3,d7
  10729. .bug2: 
  10730.  
  10731.  add.l d6,PLR2s_xspdval
  10732.  add.l d7,PLR2s_zspdval
  10733.  
  10734. .nofriction:
  10735.  move.l PLR2s_xspdval,d6
  10736.  move.l PLR2s_zspdval,d7
  10737.  add.l d6,PLR2s_xoff
  10738.  add.l d7,PLR2s_zoff
  10739.  
  10740.  move.w PLR2s_angspd,d3
  10741.  tst.b SLOWDOWN
  10742.  beq.s .nofric
  10743.  asr.w #2,d3
  10744.  bge.s .nneg
  10745.  addq #1,d3
  10746. .nneg:
  10747. .nofric:
  10748.  
  10749.  move.w d3,PLR2s_angspd
  10750.  add.w d3,PLR2s_angpos
  10751.  add.w d3,PLR2s_angpos
  10752.  and.w #8190,PLR2s_angpos
  10753.  
  10754.  bra.s nocontrols
  10755.  
  10756. .propercontrol:
  10757.  tst.b PLR2MOUSE
  10758.  beq.s PLR2_nomouse
  10759.  bsr PLR2_mouse_control
  10760. PLR2_nomouse:
  10761.  tst.b PLR2KEYS
  10762.  beq.s PLR2_nokeys
  10763.  bsr PLR2_keyboard_control
  10764. PLR2_nokeys:
  10765. ; tst.b PLR2PATH
  10766. ; beq.s PLR2_nopath
  10767. ; bsr PLR1_follow_path
  10768. ;PLR2_nopath:
  10769.  tst.b PLR2JOY
  10770.  beq.s PLR2_nojoy
  10771.  bsr PLR2_JoyStick_control
  10772. PLR2_nojoy: 
  10773.  
  10774.  
  10775. nocontrols:
  10776.  
  10777.  move.l #$dff000,a6
  10778.  
  10779.  cmp.b #'4',Prefsfile+1
  10780.  bne.s nomuckabout
  10781.  
  10782.  move.w #$0,d0 
  10783.  tst.b NoiseMade0LEFT
  10784.  beq.s noturnoff0
  10785.  move.w #1,d0
  10786. noturnoff0:
  10787.  tst.b NoiseMade0RIGHT
  10788.  beq.s noturnoff1
  10789.  or.w #2,d0
  10790. noturnoff1:
  10791.  tst.b NoiseMade1RIGHT
  10792.  beq.s noturnoff2
  10793.  or.w #4,d0
  10794. noturnoff2:
  10795.  tst.b NoiseMade1LEFT
  10796.  beq.s noturnoff3
  10797.  or.w #8,d0
  10798. noturnoff3:
  10799.     move.w d0,dmacon(a6)
  10800.  
  10801. nomuckabout:
  10802.  
  10803.  
  10804. ; tst.b PLR2_fire
  10805. ; beq.s firenotpressed2
  10806. ; fire was pressed last time.
  10807. ; btst #7,$bfe001
  10808. ; bne.s firenownotpressed2
  10809. ; fire is still pressed this time.
  10810. ; st PLR2_fire
  10811. ; bra dointer
  10812.  
  10813. firenownotpressed2:
  10814. ; fire has been released.
  10815. ; clr.b PLR2_fire
  10816. ; bra dointer
  10817.  
  10818. firenotpressed2
  10819.  
  10820. ; fire was not pressed last frame...
  10821.  
  10822. ; btst #7,$bfe001
  10823. ; if it has still not been pressed, go back above
  10824. ; bne.s firenownotpressed2
  10825. ; fire was not pressed last time, and was this time, so has
  10826. ; been clicked.
  10827. ; st PLR2_clicked
  10828. ; st PLR2_fire
  10829.  
  10830. dointer
  10831.  
  10832. JUSTSOUNDS:
  10833.  
  10834.  tst.b dosounds
  10835.  beq.s .notthing
  10836.  
  10837.  cmp.b #'4',Prefsfile+1
  10838.     beq fourchannel
  10839.  
  10840.  btst #1,$dff000+intreqr
  10841.     bne.s newsampbitl
  10842.  
  10843. .notthing:
  10844.  
  10845.  movem.l (a7)+,d0-d7/a0-a6
  10846.  
  10847.  moveq #0,d0
  10848.  rts
  10849.  
  10850.  
  10851. dosounds: dc.w 0
  10852.  
  10853. swappedem: dc.w 0
  10854.  
  10855. newsampbitl:
  10856.  
  10857.  move.w #$820f,$dff000+dmacon
  10858.  
  10859.  move.w #$200,$dff000+intreq
  10860.  
  10861. ; tst.b CHANNELDATA
  10862. ; bne nochannel0
  10863.  
  10864.  move.l pos0LEFT,a0
  10865.  move.l pos2LEFT,a1
  10866.  
  10867.  move.l #tab,a2
  10868.  
  10869.  moveq #0,d0
  10870.  moveq #0,d1
  10871.  move.b vol0left,d0
  10872.  move.b vol2left,d1
  10873.  cmp.b d1,d0
  10874.  slt swappedem
  10875.  bge.s fbig0
  10876.  
  10877. ; d1 is bigger so scale d0 and use d1
  10878. ; as audiochannel volume.
  10879.  
  10880.  exg a0,a1
  10881.  asl.w #6,d0
  10882.  divs d1,d0
  10883.  lsl.w #8,d0
  10884.  adda.w d0,a2
  10885.  move.w d1,$dff0a8
  10886.  bra.s donechan0
  10887.  
  10888. fbig0:
  10889.  tst.w d0
  10890.  beq.s donechan0
  10891.  asl.w #6,d1
  10892.  divs d0,d1
  10893.  lsl.w #8,d1
  10894.  adda.w d1,a2
  10895.  move.w d0,$dff0a8
  10896.  
  10897. donechan0:
  10898.  
  10899.  move.l Aupt0,a3
  10900.  move.l a3,$dff0a0
  10901.  move.l Auback0,Aupt0
  10902.  move.l a3,Auback0
  10903.  
  10904.  move.l Auback0,a3
  10905.  
  10906.  moveq #0,d0
  10907.  moveq #0,d1
  10908.  moveq #0,d2
  10909.  moveq #0,d3
  10910.  moveq #0,d4
  10911.  moveq #0,d5
  10912.  move.w #49,d7
  10913. loop:
  10914.  move.l (a0)+,d0
  10915.  move.b (a1)+,d1
  10916.  move.b (a1)+,d2
  10917.  move.b (a1)+,d3
  10918.  move.b (a1)+,d4
  10919.  move.b (a2,d3.w),d5
  10920.  swap d5
  10921.  move.b (a2,d1.w),d5
  10922.  asl.l #8,d5
  10923.  move.b (a2,d2.w),d5
  10924.  swap d5
  10925.  move.b (a2,d4.w),d5
  10926.  add.l d5,d0
  10927.  move.l d0,(a3)+
  10928.  dbra d7,loop
  10929.  
  10930.  tst.b swappedem
  10931.  beq.s .ok23
  10932.  exg a0,a1
  10933. .ok23:
  10934.  
  10935.  cmp.l Samp0endLEFT,a0
  10936.  blt.s .notoffendsamp1
  10937.  move.l #empty,a0
  10938.  move.l #emptyend,Samp0endLEFT
  10939.  move.b #0,vol0left
  10940.  st LEFTCHANDATA+1
  10941.  move.w #0,LEFTCHANDATA+2
  10942. .notoffendsamp1:
  10943.  
  10944.  cmp.l Samp2endLEFT,a1
  10945.  blt.s .notoffendsamp2
  10946.  move.l #empty,a1
  10947.  move.l #emptyend,Samp2endLEFT
  10948.  move.b #0,vol2left
  10949.  st LEFTCHANDATA+1+8
  10950.  move.w #0,LEFTCHANDATA+2+8
  10951. .notoffendsamp2:
  10952.  
  10953.  move.l a0,pos0LEFT
  10954.  move.l a1,pos2LEFT
  10955.  
  10956. nochannel0:
  10957.  
  10958.  tst.b CHANNELDATA+16
  10959.  bne nochannel1
  10960.  
  10961.  
  10962.  move.l pos0RIGHT,a0
  10963.  move.l pos2RIGHT,a1
  10964.  
  10965.  move.l Aupt1,a3
  10966.  move.l a3,$dff0b0
  10967.  move.l Auback1,Aupt1
  10968.  move.l a3,Auback1
  10969.  
  10970.  move.l #tab,a2
  10971.  
  10972.  moveq #0,d0
  10973.  moveq #0,d1
  10974.  move.b vol0right,d0
  10975.  move.b vol2right,d1
  10976.  cmp.b d1,d0
  10977.  slt swappedem
  10978.  bge.s fbig1
  10979.  
  10980. ; d1 is bigger so scale d0 and use d1
  10981. ; as audiochannel volume.
  10982.  
  10983.  exg a0,a1
  10984.  asl.w #6,d0
  10985.  divs d1,d0
  10986.  lsl.w #8,d0
  10987.  adda.w d0,a2
  10988.  move.w d1,$dff0b8
  10989.  bra.s donechan1
  10990.  
  10991. fbig1:
  10992.  tst.w d0
  10993.  beq.s donechan1
  10994.  asl.w #6,d1
  10995.  divs d0,d1
  10996.  lsl.w #8,d1
  10997.  adda.w d1,a2
  10998.  move.w d0,$dff0b8
  10999.  
  11000. donechan1:
  11001.  moveq #0,d0
  11002.  moveq #0,d1
  11003.  moveq #0,d2
  11004.  moveq #0,d3
  11005.  moveq #0,d4
  11006.  moveq #0,d5
  11007.  move.w #49,d7
  11008. loop2:
  11009.  move.l (a0)+,d0
  11010.  move.b (a1)+,d1
  11011.  move.b (a1)+,d2
  11012.  move.b (a1)+,d3
  11013.  move.b (a1)+,d4
  11014.  move.b (a2,d3.w),d5
  11015.  swap d5
  11016.  move.b (a2,d1.w),d5
  11017.  asl.l #8,d5
  11018.  move.b (a2,d2.w),d5
  11019.  swap d5
  11020.  move.b (a2,d4.w),d5
  11021.  add.l d5,d0
  11022.  move.l d0,(a3)+
  11023.  dbra d7,loop2
  11024.  
  11025.  tst.b swappedem
  11026.  beq.s ok01
  11027.  exg a0,a1
  11028. ok01:
  11029.  
  11030.  cmp.l Samp0endRIGHT,a0
  11031.  blt.s .notoffendsamp1
  11032.  move.l #empty,a0
  11033.  move.l #emptyend,Samp0endRIGHT
  11034.  move.b #0,vol0right
  11035.  st RIGHTCHANDATA+1
  11036.  move.w #0,RIGHTCHANDATA+2
  11037. .notoffendsamp1:
  11038.  
  11039.  cmp.l Samp2endRIGHT,a1
  11040.  blt.s .notoffendsamp2
  11041.  move.l #empty,a1
  11042.  move.l #emptyend,Samp2endRIGHT
  11043.  move.b #0,vol2right
  11044.  st RIGHTCHANDATA+1+8
  11045.  move.w #0,RIGHTCHANDATA+2+8
  11046. .notoffendsamp2:
  11047.  
  11048.  move.l a0,pos0RIGHT
  11049.  move.l a1,pos2RIGHT
  11050.  
  11051. nochannel1:
  11052.  
  11053. ******************* Other two channels
  11054.  
  11055.  move.l pos1LEFT,a0
  11056.  move.l pos3LEFT,a1
  11057.  
  11058.  move.l #tab,a2
  11059.  
  11060.  moveq #0,d0
  11061.  moveq #0,d1
  11062.  move.b vol1left,d0
  11063.  move.b vol3left,d1
  11064.  cmp.b d1,d0
  11065.  slt swappedem
  11066.  bge.s fbig2
  11067.  
  11068. ; d1 is bigger so scale d0 and use d1
  11069. ; as audiochannel volume.
  11070.  
  11071.  exg a0,a1
  11072.  asl.w #6,d0
  11073.  divs d1,d0
  11074.  lsl.w #8,d0
  11075.  adda.w d0,a2
  11076.  move.w d1,$dff0d8
  11077.  bra.s donechan2
  11078.  
  11079. fbig2:
  11080.  tst.w d0
  11081.  beq.s donechan2
  11082.  asl.w #6,d1
  11083.  divs d0,d1
  11084.  lsl.w #8,d1
  11085.  adda.w d1,a2
  11086.  move.w d0,$dff0d8
  11087.  
  11088. donechan2:
  11089.  
  11090.  move.l Aupt2,a3
  11091.  move.l a3,$dff0d0
  11092.  move.l Auback2,Aupt2
  11093.  move.l a3,Auback2
  11094.  
  11095.  moveq #0,d0
  11096.  moveq #0,d1
  11097.  moveq #0,d2
  11098.  moveq #0,d3
  11099.  moveq #0,d4
  11100.  moveq #0,d5
  11101.  move.w #49,d7
  11102. loop3:
  11103.  move.l (a0)+,d0
  11104.  move.b (a1)+,d1
  11105.  move.b (a1)+,d2
  11106.  move.b (a1)+,d3
  11107.  move.b (a1)+,d4
  11108.  move.b (a2,d3.w),d5
  11109.  swap d5
  11110.  move.b (a2,d1.w),d5
  11111.  asl.l #8,d5
  11112.  move.b (a2,d2.w),d5
  11113.  swap d5
  11114.  move.b (a2,d4.w),d5
  11115.  add.l d5,d0
  11116.  move.l d0,(a3)+
  11117.  dbra d7,loop3
  11118.  
  11119.  tst.b swappedem
  11120.  beq.s .ok23
  11121.  exg a0,a1
  11122. .ok23:
  11123.  
  11124.  cmp.l Samp1endLEFT,a0
  11125.  blt.s .notoffendsamp3
  11126.  move.l #empty,a0
  11127.  move.l #emptyend,Samp1endLEFT
  11128.  move.b #0,vol1left
  11129.  st LEFTCHANDATA+1+4
  11130.  move.w #0,LEFTCHANDATA+2+4
  11131. .notoffendsamp3:
  11132.  
  11133.  cmp.l Samp3endLEFT,a1
  11134.  blt.s .notoffendsamp4
  11135.  move.l #empty,a1
  11136.  move.l #emptyend,Samp3endLEFT
  11137.  move.b #0,vol3left
  11138.  st LEFTCHANDATA+1+12
  11139.  move.w #0,LEFTCHANDATA+2+12
  11140. .notoffendsamp4:
  11141.  
  11142.  move.l a0,pos1LEFT
  11143.  move.l a1,pos3LEFT
  11144.  
  11145.  move.l pos1RIGHT,a0
  11146.  move.l pos3RIGHT,a1
  11147.  
  11148.  move.l Aupt3,a3
  11149.  move.l a3,$dff0c0
  11150.  move.l Auback3,Aupt3
  11151.  move.l a3,Auback3
  11152.  
  11153.  move.l #tab,a2
  11154.  
  11155.  moveq #0,d0
  11156.  moveq #0,d1
  11157.  move.b vol1right,d0
  11158.  move.b vol3right,d1
  11159.  cmp.b d1,d0
  11160.  slt.s swappedem
  11161.  bge.s fbig3
  11162.  
  11163.  exg a0,a1
  11164.  asl.w #6,d0
  11165.  divs d1,d0
  11166.  lsl.w #8,d0
  11167.  adda.w d0,a2
  11168.  move.w d1,$dff0c8
  11169.  bra.s donechan3
  11170.  
  11171. fbig3:
  11172.  tst.w d0
  11173.  beq.s donechan3
  11174.  asl.w #6,d1
  11175.  divs d0,d1
  11176.  lsl.w #8,d1
  11177.  adda.w d1,a2
  11178.  move.w d0,$dff0c8
  11179. donechan3:
  11180.  
  11181.  moveq #0,d0
  11182.  moveq #0,d1
  11183.  moveq #0,d2
  11184.  moveq #0,d3
  11185.  moveq #0,d4
  11186.  moveq #0,d5
  11187.  move.w #49,d7
  11188. loop4:
  11189.  move.l (a0)+,d0
  11190.  move.b (a1)+,d1
  11191.  move.b (a1)+,d2
  11192.  move.b (a1)+,d3
  11193.  move.b (a1)+,d4
  11194.  move.b (a2,d3.w),d5
  11195.  swap d5
  11196.  move.b (a2,d1.w),d5
  11197.  asl.l #8,d5
  11198.  move.b (a2,d2.w),d5
  11199.  swap d5
  11200.  move.b (a2,d4.w),d5
  11201.  add.l d5,d0
  11202.  move.l d0,(a3)+
  11203.  dbra d7,loop4
  11204.  
  11205.  tst.b swappedem
  11206.  beq.s .ok23
  11207.  exg a0,a1
  11208. .ok23:
  11209.  
  11210.  cmp.l Samp1endRIGHT,a0
  11211.  blt.s notoffendsamp3
  11212.  move.l #empty,a0
  11213.  move.l #emptyend,Samp1endRIGHT
  11214.  move.b #0,vol1right
  11215.  st RIGHTCHANDATA+1+4
  11216.  move.w #0,RIGHTCHANDATA+2+4
  11217. notoffendsamp3:
  11218.  
  11219.  cmp.l Samp3endRIGHT,a1
  11220.  blt.s notoffendsamp4
  11221.  move.l #empty,a1
  11222.  move.l #emptyend,Samp3endRIGHT
  11223.  move.b #0,vol3right
  11224.  st RIGHTCHANDATA+1+12
  11225.  move.w #0,RIGHTCHANDATA+2+12
  11226. notoffendsamp4:
  11227.  
  11228.  move.l a0,pos1RIGHT
  11229.  move.l a1,pos3RIGHT
  11230.  
  11231.  movem.l (a7)+,d0-d7/a0-a6
  11232.  tst.b counting
  11233.  beq .nostartcounter
  11234.  JSR STARTCOUNT
  11235. .nostartcounter:
  11236.  
  11237.  moveq #0,d0
  11238.  rts
  11239.  
  11240. ***********************************
  11241. * 4 channel sound routine
  11242. ***********************************
  11243.  
  11244. fourchannel:
  11245.  
  11246.  move.l #$dff000,a6
  11247.  
  11248.  btst #7,intreqrl(a6)
  11249.  beq.s nofinish0
  11250. ; move.w #0,LEFTCHANDATA+2
  11251. ; st LEFTCHANDATA+1
  11252.  move.l #null,$a0(a6)
  11253.  move.w #100,$a4(a6) 
  11254.  move.w #$0080,intreq(a6)
  11255. nofinish0:
  11256.  
  11257.  tst.b NoiseMade0pLEFT
  11258.  beq.s NoChan0sound
  11259.  
  11260.  move.l Samp0endLEFT,d0
  11261.  move.l pos0LEFT,d1
  11262.  sub.l d1,d0
  11263.  lsr.l #1,d0
  11264.  move.w d0,$a4(a6)
  11265.  move.l d1,$a0(a6)
  11266.  ext.l d0
  11267.  divs #100,d0
  11268.  move.w d0,playnull0
  11269.  move.w #$8201,dmacon(a6)
  11270.  moveq #0,d0
  11271.  move.b vol0left,d0
  11272.  move.w d0,$a8(a6)
  11273.  
  11274. NoChan0sound:
  11275.  
  11276. *****************************************
  11277. *****************************************
  11278.  
  11279.  btst #0,intreqr(a6)
  11280.  beq.s nofinish1
  11281.  move.l #null,$b0(a6)
  11282.  move.w #100,$b4(a6)
  11283.  move.w #$0100,intreq(a6)
  11284. nofinish1:
  11285.  
  11286.  tst.b NoiseMade0pRIGHT
  11287.  beq.s NoChan1sound
  11288.  
  11289.  move.l Samp0endRIGHT,d0
  11290.  move.l pos0RIGHT,d1
  11291.  sub.l d1,d0
  11292.  lsr.l #1,d0
  11293.  move.w d0,$b4(a6)
  11294.  move.l d1,$b0(a6)
  11295.  ext.l d0
  11296.  divs #100,d0
  11297.  move.w d0,playnull1
  11298.  move.w #$8202,dmacon(a6)
  11299.  moveq #0,d0
  11300.  move.b vol0right,d0
  11301.  move.w d0,$b8(a6)
  11302.  
  11303. NoChan1sound:
  11304.  
  11305. *****************************************
  11306. *****************************************
  11307.  
  11308.  btst #1,intreqr(a6)
  11309.  beq.s nofinish2
  11310.  move.l #null,$c0(a6)
  11311.  move.w #100,$c4(a6)
  11312.  move.w #$0200,intreq(a6)
  11313. nofinish2:
  11314.  
  11315.  tst.b NoiseMade1pRIGHT
  11316.  beq.s NoChan2sound
  11317.  
  11318.  move.l Samp1endRIGHT,d0
  11319.  move.l pos1RIGHT,d1
  11320.  sub.l d1,d0
  11321.  lsr.l #1,d0
  11322.  move.w d0,$c4(a6)
  11323.  ext.l d0
  11324.  divs #100,d0
  11325.  move.w d0,playnull2
  11326.  
  11327.  move.l d1,$c0(a6)
  11328.  move.w #$8204,dmacon(a6)
  11329.  moveq #0,d0
  11330.  move.b vol1right,d0
  11331.  move.w d0,$c8(a6)
  11332.  
  11333. NoChan2sound:
  11334.  
  11335. *****************************************
  11336. *****************************************
  11337.  
  11338.  btst #2,intreqr(a6)
  11339.  beq.s nofinish3
  11340.  move.l #null,$d0(a6)
  11341.  move.w #100,$d4(a6)
  11342.  move.w #$0400,intreq(a6)
  11343. nofinish3:
  11344.  
  11345.  tst.b NoiseMade1pLEFT
  11346.  beq.s NoChan3sound
  11347.  
  11348.  move.l Samp1endLEFT,d0
  11349.  move.l pos1LEFT,d1
  11350.  sub.l d1,d0
  11351.  lsr.l #1,d0
  11352.  move.w d0,$d4(a6)
  11353.  ext.l d0
  11354.  divs #100,d0
  11355.  move.w d0,playnull3
  11356.  move.l d1,$d0(a6)
  11357.  move.w #$8208,dmacon(a6)
  11358.  moveq #0,d0
  11359.  move.b vol1left,d0
  11360.  move.w d0,$d8(a6)
  11361.  
  11362. NoChan3sound:
  11363.  
  11364. nomorechannels:
  11365.  
  11366.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  11367.  move.l #0,NoiseMade0LEFT
  11368.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  11369.  move.l #0,NoiseMade0RIGHT
  11370.  
  11371. ; tst.b playnull0
  11372. ; beq.s .nnul
  11373. ; sub.b #1,playnull0
  11374. ; bra.s chan0still
  11375. ;.nnul:
  11376. ; 
  11377. ;chan0still:
  11378.  
  11379.  tst.b NoiseMade0pLEFT
  11380.  bne.s chan0still
  11381.  tst.w playnull0
  11382.  beq.s nnul0
  11383.  sub.w #1,playnull0
  11384.  bra.s chan0still
  11385. nnul0:
  11386.  move.w #0,LEFTCHANDATA+2
  11387.  st LEFTCHANDATA+1
  11388. chan0still:
  11389.  
  11390.  tst.b NoiseMade0pRIGHT
  11391.  bne.s chan1still    ;it'll never work
  11392.  tst.w playnull1
  11393.  beq.s nnul1
  11394.  sub.w #1,playnull1
  11395.  bra.s chan1still
  11396. nnul1:
  11397.  move.w #0,RIGHTCHANDATA+2
  11398.  st RIGHTCHANDATA+1
  11399. chan1still:
  11400.  
  11401.  tst.b NoiseMade1pRIGHT
  11402.  bne.s chan2still
  11403.  tst.w playnull2
  11404.  beq.s nnul2
  11405.  sub.w #1,playnull2
  11406.  bra.s chan2still
  11407. nnul2:
  11408.  move.w #0,RIGHTCHANDATA+2+4
  11409.  st RIGHTCHANDATA+1+4
  11410. chan2still:
  11411.  
  11412.  tst.b NoiseMade1pLEFT
  11413.  bne.s chan3still
  11414.  tst.w playnull3
  11415.  beq.s nnul3
  11416.  sub.w #1,playnull3
  11417.  bra.s chan3still
  11418. nnul3:
  11419.  move.w #0,LEFTCHANDATA+2+4
  11420.  st LEFTCHANDATA+1+4
  11421.  
  11422. chan3still:
  11423.  
  11424.  
  11425.  movem.l (a7)+,d0-d7/a0-a6
  11426.  
  11427.  moveq #0,d0
  11428.  rts
  11429.  
  11430. backbeat: dc.w 0
  11431.  
  11432. playnull0: dc.w 0
  11433. playnull1: dc.w 0
  11434. playnull2: dc.w 0
  11435. playnull3: dc.w 0
  11436.  
  11437. Samp0endRIGHT: dc.l emptyend
  11438. Samp1endRIGHT: dc.l emptyend
  11439. Samp2endRIGHT: dc.l emptyend
  11440. Samp3endRIGHT: dc.l emptyend
  11441. Samp0endLEFT: dc.l emptyend
  11442. Samp1endLEFT: dc.l emptyend
  11443. Samp2endLEFT: dc.l emptyend
  11444. Samp3endLEFT: dc.l emptyend
  11445.  
  11446. Aupt0: dc.l null
  11447. Auback0: dc.l null+500
  11448. Aupt2: dc.l null3
  11449. Auback2: dc.l null3+500
  11450. Aupt3: dc.l null4
  11451. Auback3: dc.l null4+500
  11452. Aupt1: dc.l null2
  11453. Auback1: dc.l null2+500
  11454.  
  11455. NoiseMade0LEFT: dc.b 0
  11456. NoiseMade1LEFT: dc.b 0
  11457. NoiseMade2LEFT: dc.b 0
  11458. NoiseMade3LEFT: dc.b 0
  11459. NoiseMade0pLEFT: dc.b 0
  11460. NoiseMade1pLEFT: dc.b 0
  11461. NoiseMade2pLEFT: dc.b 0
  11462. NoiseMade3pLEFT: dc.b 0
  11463. NoiseMade0RIGHT: dc.b 0
  11464. NoiseMade1RIGHT: dc.b 0
  11465. NoiseMade2RIGHT: dc.b 0
  11466. NoiseMade3RIGHT: dc.b 0
  11467. NoiseMade0pRIGHT: dc.b 0
  11468. NoiseMade1pRIGHT: dc.b 0
  11469. NoiseMade2pRIGHT: dc.b 0
  11470. NoiseMade3pRIGHT: dc.b 0
  11471.  
  11472. empty: ds.l 100
  11473. emptyend:
  11474.  
  11475. **************************************
  11476. * I want a routine to calculate all the
  11477. * info needed for the sound player to
  11478. * work, given say position of noise, volume
  11479. * and sample number.
  11480.  
  11481. Samplenum: dc.w 0
  11482. Noisex: dc.w 0
  11483. Noisez: dc.w 0
  11484. Noisevol: dc.w 0
  11485. chanpick: dc.w 0
  11486. IDNUM: dc.w 0
  11487. needleft: dc.b 0
  11488. needright: dc.b 0
  11489. STEREO: dc.b $0
  11490. even
  11491. prot6: dc.w 0
  11492.  
  11493.  even
  11494.  
  11495. CHANNELDATA:
  11496. LEFTCHANDATA:
  11497.  dc.l $00000000
  11498.  dc.l $00000000
  11499.  dc.l $FF000000
  11500.  dc.l $FF000000
  11501. RIGHTCHANDATA:
  11502.  dc.l $00000000
  11503.  dc.l $00000000
  11504.  dc.l $FF000000
  11505.  dc.l $FF000000
  11506.  
  11507. RIGHTPLAYEDTAB: ds.l 20
  11508. LEFTPLAYEDTAB: ds.l 20
  11509.  
  11510. MakeSomeNoise:
  11511.  
  11512. ; Plan for new sound handler:
  11513. ; It is sent a sample number,
  11514. ; a position relative to the
  11515. ; player, an id number and a volume.
  11516. ; Also notifplaying.
  11517.  
  11518. ; indirect inputs are the available
  11519. ; channel flags and whether or not
  11520. ; stereo sound is selected.
  11521.  
  11522. ; the algorithm must decide
  11523. ; whether the new sound is more
  11524. ; important than the ones already
  11525. ; playing. Thus an 'importance'
  11526. ; must be calculated, probably
  11527. ; using volume.
  11528.  
  11529. ; The output needs to be:
  11530.  
  11531. ; Write the pointers and volumes of
  11532. ; the sound channels
  11533.  
  11534.  
  11535.  tst.b notifplaying
  11536.  beq.s dontworry
  11537.  
  11538. ; find if we are already playing
  11539.  
  11540.  move.b IDNUM,d0
  11541.  move.w #7,d1
  11542.  lea CHANNELDATA,a3
  11543. findsameasme
  11544.  tst.b (a3)
  11545.  bne.s notavail
  11546.  cmp.b 1(a3),d0
  11547.  beq SameAsMe
  11548. notavail:
  11549.  add.w #4,a3
  11550.  dbra d1,findsameasme
  11551.  bra dontworry
  11552. SameAsMe
  11553.  rts
  11554.  
  11555. noiseloud: dc.w 0
  11556.  
  11557. dontworry:
  11558.  
  11559. ; Ok its fine for us to play a sound.
  11560. ; So calculate left/right volume.
  11561.  
  11562.  move.w Noisex,d1
  11563.  muls d1,d1
  11564.  move.w Noisez,d2
  11565.  muls d2,d2
  11566.  move.w #64,d3
  11567.  move.w #32767,noiseloud
  11568.  moveq #1,d0
  11569.  add.l d1,d2
  11570.  beq pastcalc
  11571.  
  11572.  move.w #31,d0
  11573. .findhigh
  11574.  btst d0,d2
  11575.  bne .foundhigh
  11576.  dbra d0,.findhigh
  11577. .foundhigh
  11578.  asr.w #1,d0
  11579.  clr.l d3
  11580.  bset d0,d3
  11581.  move.l d3,d0
  11582.  
  11583.  move.w d0,d3
  11584.  muls d3,d3    ; x*x
  11585.  sub.l d2,d3    ; x*x-a
  11586.  asr.l #1,d3    ; (x*x-a)/2
  11587.  divs d0,d3    ; (x*x-a)/2x
  11588.  sub.w d3,d0    ; second approx
  11589.  bgt .stillnot0
  11590.  move.w #1,d0
  11591. .stillnot0
  11592.  
  11593.  move.w d0,d3
  11594.  muls d3,d3
  11595.  sub.l d2,d3
  11596.  asr.l #1,d3
  11597.  divs d0,d3
  11598.  sub.w d3,d0    ; second approx
  11599.  bgt .stillnot02
  11600.  move.w #1,d0
  11601. .stillnot02
  11602.  
  11603.  move.w Noisevol,d3
  11604.  ext.l d3
  11605.  asl.l #6,d3
  11606.  cmp.l #32767,d3
  11607.  ble.s .nnnn
  11608.  move.l #32767,d3
  11609. .nnnn
  11610.  
  11611.  asr.w #2,d0
  11612.  addq #1,d0
  11613.  divs d0,d3
  11614.  
  11615.  move.w d3,noiseloud
  11616.  
  11617.  cmp.w #64,d3
  11618.  ble.s notooloud
  11619.  move.w #64,d3
  11620. notooloud:
  11621.  
  11622. pastcalc:
  11623.  
  11624.     ; d3 contains volume of noise.
  11625.     
  11626.  move.w d3,d4
  11627.  tst.b STEREO
  11628.  beq NOSTEREO
  11629.  
  11630.  move.w d3,d2
  11631.  muls Noisex,d2
  11632.  asl.w #2,d0
  11633.  divs d0,d2
  11634.  
  11635.  bgt.s quietleft
  11636.  add.w d2,d4
  11637.  bge.s donequiet
  11638.  move.w #0,d4
  11639.  bra.s donequiet
  11640. quietleft:
  11641.  sub.w d2,d3
  11642.  bge.s donequiet
  11643.  move.w #0,d3
  11644. donequiet:
  11645.  
  11646. ; d3=leftvol?
  11647. ; d4=rightvol?
  11648.  
  11649.  clr.w needleft
  11650.  
  11651.  cmp.b d3,d4
  11652.  bgt.s RightLouder
  11653.  
  11654. ; Left is louder; is it MUCH louder?
  11655.  
  11656.  st needleft
  11657.  move.w d3,d2
  11658.  sub.w d4,d2
  11659.  cmp.w #32,d2
  11660.  slt needright
  11661.  bra aboutsame
  11662.  
  11663. RightLouder:
  11664.  st needright
  11665.  move.w d4,d2
  11666.  sub.w d3,d2
  11667.  cmp.w #32,d2
  11668.  slt needleft
  11669.  
  11670. aboutsame:
  11671.  
  11672.  
  11673. ; Find least important sound on left
  11674.  
  11675.  move.l #0,a2
  11676.  move.l #0,d5
  11677.  move.w #32767,d2
  11678.  move.b IDNUM,d0
  11679.  lea LEFTCHANDATA,a3
  11680.  move.w #3,d1
  11681. FindLeftChannel
  11682.  tst.b (a3)
  11683.  bne.s .notactive
  11684.  cmp.b 1(a3),d0
  11685.  beq.s FOUNDLEFT
  11686.  cmp.w 2(a3),d2
  11687.  blt.s .notactive
  11688.  move.w 2(a3),d2
  11689.  move.l a3,a2
  11690.  move.w d5,d6
  11691.  
  11692. .notactive:
  11693.  add.w #4,a3
  11694.  add.w #1,d5
  11695.  dbra d1,FindLeftChannel
  11696.  move.l a2,a3
  11697.  bra.s gopastleft
  11698. FOUNDLEFT:
  11699.  move.w d5,d6
  11700. gopastleft:
  11701.  tst.l a3
  11702.  bne.s FOUNDALEFT
  11703. NONOISE:
  11704.  rts
  11705. FOUNDALEFT:
  11706.  
  11707.  cmp.w noiseloud,d3
  11708.  bge.s NONOISE
  11709.  
  11710. ; d6 = channel number
  11711.  move.b d0,1(a3)
  11712.  move.w d3,2(a3)
  11713.  
  11714.  move.w Samplenum,d5
  11715.  move.l #SampleList,a3
  11716.  move.l (a3,d5.w*8),a1
  11717.  move.l 4(a3,d5.w*8),a2
  11718.  
  11719.  tst.b d6
  11720.  seq NoiseMade0LEFT
  11721.  beq.s .chan0
  11722.  cmp.b #2,d6
  11723.  slt NoiseMade1LEFT
  11724.  blt .chan1
  11725.  seq NoiseMade2LEFT
  11726.  beq .chan2
  11727.  st NoiseMade3LEFT
  11728.  
  11729.  move.b d5,LEFTPLAYEDTAB+9
  11730.  move.b d3,LEFTPLAYEDTAB+1+9
  11731.  move.b d4,LEFTPLAYEDTAB+2+9
  11732.  move.b d3,vol3left
  11733.  move.l a1,pos3LEFT
  11734.  move.l a2,Samp3endLEFT
  11735.  bra dorightchan
  11736.  
  11737. .chan0: 
  11738.  move.b d5,LEFTPLAYEDTAB
  11739.  move.b d3,LEFTPLAYEDTAB+1
  11740.  move.b d4,LEFTPLAYEDTAB+2
  11741.  move.l a1,pos0LEFT
  11742.  move.l a2,Samp0endLEFT
  11743.  move.b d3,vol0left
  11744.  bra dorightchan
  11745.  
  11746. .chan1:
  11747.  move.b d5,LEFTPLAYEDTAB+3
  11748.  move.b d3,LEFTPLAYEDTAB+1+3
  11749.  move.b d4,LEFTPLAYEDTAB+2+3
  11750.  move.b d3,vol1left
  11751.  move.l a1,pos1LEFT
  11752.  move.l a2,Samp1endLEFT
  11753.  bra dorightchan
  11754.  
  11755. .chan2: 
  11756.  move.b d5,LEFTPLAYEDTAB+6
  11757.  move.b d3,LEFTPLAYEDTAB+1+6
  11758.  move.b d4,LEFTPLAYEDTAB+2+6
  11759.  move.l a1,pos2LEFT
  11760.  move.l a2,Samp2endLEFT
  11761.  move.b d3,vol2left
  11762.  
  11763. dorightchan:
  11764.  
  11765. ; Find least important sound on right
  11766.  
  11767.  move.l #0,a2
  11768.  move.l #0,d5
  11769.  move.w #10000,d2
  11770.  move.b IDNUM,d0
  11771.  lea RIGHTCHANDATA,a3
  11772.  move.w #3,d1
  11773. FindRightChannel
  11774.  tst.b (a3)
  11775.  bne.s .notactive
  11776.  cmp.b 1(a3),d0
  11777.  beq.s FOUNDRIGHT
  11778.  cmp.w 2(a3),d2
  11779.  blt.s .notactive
  11780.  move.w 2(a3),d2
  11781.  move.l a3,a2
  11782.  move.w d5,d6
  11783.  
  11784. .notactive:
  11785.  add.w #4,a3
  11786.  add.w #1,d5
  11787.  dbra d1,FindRightChannel
  11788.  move.l a2,a3
  11789.  bra.s gopastright
  11790. FOUNDRIGHT:
  11791.  move.w d5,d6
  11792. gopastright:
  11793.  tst.l a3
  11794.  bne.s FOUNDARIGHT
  11795.  rts
  11796. FOUNDARIGHT:
  11797.  
  11798. ; d6 = channel number
  11799.  move.b d0,1(a3)
  11800.  move.w d3,2(a3)
  11801.  
  11802.  move.w Samplenum,d5
  11803.  move.l #SampleList,a3
  11804.  move.l (a3,d5.w*8),a1
  11805.  move.l 4(a3,d5.w*8),a2
  11806.  
  11807.  tst.b d6
  11808.  seq NoiseMade0RIGHT
  11809.  beq.s .chan0
  11810.  cmp.b #2,d6
  11811.  slt NoiseMade1RIGHT
  11812.  blt .chan1
  11813.  seq NoiseMade2RIGHT
  11814.  beq .chan2
  11815.  st NoiseMade3RIGHT
  11816.  
  11817.  move.b d5,RIGHTPLAYEDTAB+9
  11818.  move.b d3,RIGHTPLAYEDTAB+1+9
  11819.  move.b d4,RIGHTPLAYEDTAB+2+9
  11820.  move.b d4,vol3right
  11821.  move.l a1,pos3RIGHT
  11822.  move.l a2,Samp3endRIGHT
  11823.  rts
  11824.  
  11825. .chan0: 
  11826.  move.b d5,RIGHTPLAYEDTAB
  11827.  move.b d3,RIGHTPLAYEDTAB+1
  11828.  move.b d4,RIGHTPLAYEDTAB+2
  11829.  move.l a1,pos0RIGHT
  11830.  move.l a2,Samp0endRIGHT
  11831.  move.b d4,vol0right
  11832.  rts
  11833.  
  11834. .chan1:
  11835.  move.b d5,RIGHTPLAYEDTAB+3
  11836.  move.b d3,RIGHTPLAYEDTAB+1+3
  11837.  move.b d4,RIGHTPLAYEDTAB+2+3
  11838.  move.b d3,vol1right
  11839.  move.l a1,pos1RIGHT
  11840.  move.l a2,Samp1endRIGHT
  11841.  rts
  11842.  
  11843. .chan2: 
  11844.  move.b d5,RIGHTPLAYEDTAB+6
  11845.  move.b d3,RIGHTPLAYEDTAB+1+6
  11846.  move.b d4,RIGHTPLAYEDTAB+2+6
  11847.  move.l a1,pos2RIGHT
  11848.  move.l a2,Samp2endRIGHT
  11849.  move.b d3,vol2right
  11850.  rts
  11851.  
  11852. NOSTEREO:
  11853.  move.l #0,a2
  11854.  move.l #-1,d5
  11855.  move.w #32767,d2
  11856.  move.b IDNUM,d0
  11857.  lea CHANNELDATA,a3
  11858.  move.w #7,d1
  11859. FindChannel
  11860.  tst.b (a3)
  11861.  bne.s .notactive
  11862.  cmp.b 1(a3),d0
  11863.  beq.s FOUNDMYCHAN
  11864.  cmp.w 2(a3),d2
  11865.  blt.s .notactive
  11866.  move.w 2(a3),d2
  11867.  move.l a3,a2
  11868.  move.w d5,d6
  11869.  add.w #1,d6
  11870.  
  11871. .notactive:
  11872.  add.w #4,a3
  11873.  add.w #1,d5
  11874.  dbra d1,FindChannel
  11875.  
  11876.  move.l a2,a3
  11877.  bra.s gopastchan
  11878.  
  11879. FOUNDMYCHAN:
  11880.  move.w 2(a3),d2
  11881.  
  11882. FOUNDCHAN:
  11883.  move.w d5,d6
  11884.  add.w #1,d6
  11885. gopastchan:
  11886.  tst.w d6
  11887.  bge.s FOUNDACHAN
  11888. tooquiet:
  11889.  rts
  11890. FOUNDACHAN:
  11891.  
  11892. ; d6 = channel number
  11893.  
  11894.  cmp.w noiseloud,d2
  11895.  bgt.s tooquiet
  11896.  
  11897.  move.b d0,1(a3)
  11898.  move.w noiseloud,2(a3)
  11899.  
  11900.  move.w Samplenum,d5
  11901.  move.l #SampleList,a3
  11902.  move.l (a3,d5.w*8),a1
  11903.  move.l 4(a3,d5.w*8),a2
  11904.  
  11905.  tst.b d6
  11906.  beq .chan0
  11907.  cmp.b #2,d6
  11908.  blt .chan1
  11909.  beq .chan2
  11910.  cmp.b #4,d6
  11911.  blt .chan3
  11912.  beq .chan4
  11913.  cmp.b #6,d6
  11914.  blt .chan5
  11915.  beq .chan6
  11916.  st NoiseMade3RIGHT
  11917.  
  11918.  move.b d5,RIGHTPLAYEDTAB+9
  11919.  move.b d3,RIGHTPLAYEDTAB+1+9
  11920.  move.b d4,RIGHTPLAYEDTAB+2+9
  11921.  move.b d4,vol3right
  11922.  move.l a1,pos3RIGHT
  11923.  move.l a2,Samp3endRIGHT
  11924.  rts
  11925.  
  11926. .chan3:
  11927.  st NoiseMade3LEFT
  11928.  move.b d5,LEFTPLAYEDTAB+9
  11929.  move.b d3,LEFTPLAYEDTAB+1+9
  11930.  move.b d4,LEFTPLAYEDTAB+2+9
  11931.  move.b d3,vol3left
  11932.  move.l a1,pos3LEFT
  11933.  move.l a2,Samp3endLEFT
  11934.  bra dorightchan
  11935.  
  11936. .chan0: 
  11937.  st NoiseMade0LEFT
  11938.  move.b d5,LEFTPLAYEDTAB
  11939.  move.b d3,LEFTPLAYEDTAB+1
  11940.  move.b d4,LEFTPLAYEDTAB+2
  11941.  move.l a1,pos0LEFT
  11942.  move.l a2,Samp0endLEFT
  11943.  move.b d3,vol0left
  11944.  rts
  11945.  
  11946. .chan1:
  11947.  st NoiseMade1LEFT
  11948.  move.b d5,LEFTPLAYEDTAB+3
  11949.  move.b d3,LEFTPLAYEDTAB+1+3
  11950.  move.b d4,LEFTPLAYEDTAB+2+3
  11951.  move.b d3,vol1left
  11952.  move.l a1,pos1LEFT
  11953.  move.l a2,Samp1endLEFT
  11954.  rts
  11955.  
  11956. .chan2: 
  11957.  st NoiseMade2LEFT
  11958.  move.b d5,LEFTPLAYEDTAB+6
  11959.  move.b d3,LEFTPLAYEDTAB+1+6
  11960.  move.b d4,LEFTPLAYEDTAB+2+6
  11961.  move.l a1,pos2LEFT
  11962.  move.l a2,Samp2endLEFT
  11963.  move.b d3,vol2left
  11964.  rts
  11965.  
  11966. .chan4: 
  11967.  st NoiseMade0RIGHT
  11968.  move.b d5,RIGHTPLAYEDTAB
  11969.  move.b d3,RIGHTPLAYEDTAB+1
  11970.  move.b d4,RIGHTPLAYEDTAB+2
  11971.  move.l a1,pos0RIGHT
  11972.  move.l a2,Samp0endRIGHT
  11973.  move.b d4,vol0right
  11974.  rts
  11975.  
  11976. .chan5:
  11977.  st NoiseMade1RIGHT
  11978.  move.b d5,RIGHTPLAYEDTAB+3
  11979.  move.b d3,RIGHTPLAYEDTAB+1+3
  11980.  move.b d4,RIGHTPLAYEDTAB+2+3
  11981.  move.b d3,vol1right
  11982.  move.l a1,pos1RIGHT
  11983.  move.l a2,Samp1endRIGHT
  11984.  rts
  11985.  
  11986. .chan6: 
  11987.  st NoiseMade2RIGHT
  11988.  move.b d5,RIGHTPLAYEDTAB+6
  11989.  move.b d3,RIGHTPLAYEDTAB+1+6
  11990.  move.b d4,RIGHTPLAYEDTAB+2+6
  11991.  move.l a1,pos2RIGHT
  11992.  move.l a2,Samp2endRIGHT
  11993.  move.b d3,vol2right
  11994.  rts
  11995.  
  11996. SampleList:
  11997.  dc.l Scream,EndScream
  11998.  dc.l Shoot,EndShoot
  11999.  dc.l Munch,EndMunch
  12000.  dc.l PooGun,EndPooGun
  12001.  dc.l Collect,EndCollect
  12002. ;5
  12003.  dc.l DoorNoise,EndDoorNoise
  12004.  dc.l 0,0
  12005.  dc.l Stomp,EndStomp
  12006.  dc.l LowScream,EndLowScream
  12007.  dc.l BaddieGun,EndBaddieGun
  12008. ;10
  12009.  dc.l SwitchNoise,EndSwitch
  12010.  dc.l Reload,EndReload
  12011.  dc.l NoAmmo,EndNoAmmo
  12012.  dc.l Splotch,EndSplotch
  12013.  dc.l SplatPop,EndSplatPop
  12014. ;15
  12015.  dc.l Boom,EndBoom
  12016.  dc.l Hiss,EndHiss
  12017.  dc.l Howl1,EndHowl1
  12018.  dc.l Howl2,EndHowl2
  12019.  dc.l Pant,EndPant
  12020. ;20
  12021.  dc.l Whoosh,EndWhoosh
  12022.  dc.l ROAR,EndROAR
  12023.  dc.l whoosh,Endwhoosh
  12024.  dc.l 0,0
  12025.  dc.l 0,0
  12026.  dc.l 0,0
  12027.  dc.l 0,0
  12028.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12029.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12030.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12031.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12032.  
  12033.  dc.l 0
  12034.  
  12035. storeval: dc.w 0
  12036.  
  12037.  include "ab3:CHEESESAUCE/wallchunk.s"
  12038.  include "ab3:CHEESESAUCE/newloadfromdisk.s"
  12039.  include "ab3:CHEESESAUCE/screensetup.s"
  12040.  include "ab3:CHEESESAUCE/CONTROLLOOP.s"
  12041.  
  12042.  
  12043.  
  12044.  
  12045. saveinters:  
  12046.  dc.w 0
  12047.  
  12048. z: dc.w 10
  12049.  
  12050. notifplaying:
  12051.  dc.w 0
  12052.  
  12053. audpos1: dc.w 0
  12054. audpos1b: dc.w 0
  12055. audpos2: dc.w 0
  12056. audpos2b: dc.w 0
  12057. audpos3: dc.w 0
  12058. audpos3b: dc.w 0
  12059. audpos4: dc.w 0
  12060. audpos4b: dc.w 0
  12061.  
  12062. vol0left: dc.w 0
  12063. vol0right: dc.w 0
  12064. vol1left: dc.w 0
  12065. vol1right: dc.w 0
  12066. vol2left: dc.w 0
  12067. vol2right: dc.w 0
  12068. vol3left: dc.w 0
  12069. vol3right: dc.w 0
  12070.  
  12071. pos: dc.l 0
  12072.  
  12073. pos0LEFT: dc.l empty
  12074. pos1LEFT: dc.l empty
  12075. pos2LEFT: dc.l empty
  12076. pos3LEFT: dc.l empty
  12077. pos0RIGHT: dc.l empty
  12078. pos1RIGHT: dc.l empty
  12079. pos2RIGHT: dc.l empty
  12080. pos3RIGHT: dc.l empty
  12081.  
  12082. numtodo dc.w 0
  12083.  
  12084. npt: dc.w 0
  12085.  
  12086. pretab:
  12087. val SET 0
  12088.  REPT 128
  12089.  dc.b val
  12090. val SET val+1
  12091.  ENDR
  12092. val SET -128
  12093.  REPT 128
  12094.  dc.b val
  12095. val SET val+1
  12096.  ENDR 
  12097.  
  12098. tab:
  12099.  ifeq CHEESEY
  12100.  ds.b 256*65
  12101.  endc
  12102.  
  12103. test: dc.l 0
  12104.  ds.l 30
  12105.  
  12106.  
  12107.  even
  12108. ConstCols:
  12109. ; incbin "ConstCols"
  12110.  even
  12111. Smoothscalecols:
  12112. ; incbin "smoothbumppalscaled"
  12113.  even
  12114. SmoothTile:
  12115. ; incbin "smoothbumptile"
  12116.  even
  12117. Bumpscalecols:
  12118. ; incbin "Bumppalscaled"
  12119.  even
  12120. Bumptile:
  12121. ; incbin "bumptile"
  12122.  even
  12123. scalecols: ;incbin "bytepixpalscaled"
  12124.  even
  12125. floorpalscaled:
  12126.  incbin "floorpalscaled"
  12127. ; ds.w 256*4
  12128.  
  12129.  even
  12130. PaletteAddr: dc.l 0
  12131. ChunkAddr: dc.l 0
  12132. ;walltiles:
  12133. ; dc.l GreenMechanicWALL
  12134. ; dc.l BlueGreyMetalWALL
  12135. ; dc.l TechnoDetailWALL
  12136. ; dc.l BlueStoneWALL
  12137. ; dc.l RedAlertWALL
  12138. ; dc.l RockWALL
  12139. ;
  12140. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  12141. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  12142. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  12143. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  12144. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  12145. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  12146.  
  12147. floortile:
  12148.  dc.l 0
  12149. ; incbin "floortile" 
  12150.  even
  12151. wallrouts:
  12152. ; incbin "2x2WallDraw" 
  12153.  CNOP 0,64
  12154.  
  12155.  ifeq CHEESEY 
  12156. BackPicture:
  12157.  incbin "rawback"
  12158. EndBackPicture:
  12159.  endc
  12160.  
  12161. drawpt: dc.l 0
  12162. olddrawpt: dc.l 0
  12163. frompt: dc.l 0 
  12164.  
  12165. SineTable:
  12166.  incbin "bigsine"
  12167.  
  12168. angspd: dc.w 0
  12169. flooryoff: dc.w 0
  12170. xoff: dc.l 0
  12171. yoff: dc.l 0
  12172. yvel: dc.l 0
  12173. zoff: dc.l 0
  12174. tyoff: dc.l 0
  12175. xspdval: dc.l 0
  12176. zspdval: dc.l 0
  12177. Zone: dc.w 0
  12178.  
  12179. PLR1: dc.b $ff
  12180.  even
  12181. PLR1_energy: dc.w 191
  12182. PLR1_GunSelected: dc.w 0
  12183. PLR1_cosval: dc.w 0
  12184. PLR1_sinval: dc.w 0
  12185. PLR1_angpos: dc.w 0
  12186. PLR1_angspd: dc.w 0
  12187. PLR1_xoff: dc.l 0
  12188. PLR1_yoff: dc.l 0
  12189. PLR1_yvel: dc.l 0
  12190. PLR1_zoff: dc.l 0
  12191. PLR1_tyoff: dc.l 0
  12192. PLR1_xspdval: dc.l 0
  12193. PLR1_zspdval: dc.l 0
  12194. PLR1_Zone: dc.w 0
  12195. PLR1_Roompt: dc.l 0
  12196. PLR1_FloorSpd: dc.l 0
  12197. PLR2_FloorSpd: dc.l 0
  12198. PLR1_OldRoompt: dc.l 0
  12199. PLR1_PointsToRotatePtr: dc.l 0
  12200. PLR1_ListOfGraphRooms: dc.l 0
  12201. PLR1_oldxoff: dc.l 0
  12202. PLR1_oldzoff: dc.l 0
  12203. PLR1_StoodInTop: dc.b 0
  12204.  even
  12205. PLR1_height: dc.l 0
  12206. PLR1_RoomBright: dc.w 0
  12207.  
  12208. DOUBLEWIDTH: dc.b $0,0
  12209. DOUBLEHEIGHT: dc.b 0,0
  12210. PLR1_TELEPORTED: dc.w 0
  12211. PLR2_TELEPORTED: dc.w 0
  12212.  
  12213.  ds.w 4
  12214.  
  12215. OLDX1: dc.l 0
  12216. OLDX2: dc.l 0
  12217. OLDZ1: dc.l 0
  12218. OLDZ2: dc.l 0
  12219.  
  12220. XDIFF1: dc.l 0
  12221. ZDIFF1: dc.l 0
  12222. XDIFF2: dc.l 0
  12223. ZDIFF2: dc.l 0
  12224.  
  12225. PLR1s_cosval: dc.w 0
  12226. PLR1s_sinval: dc.w 0
  12227. PLR1s_angpos: dc.w 0
  12228. PLR1s_angspd: dc.w 0
  12229. PLR1s_xoff: dc.l 0
  12230. PLR1s_yoff: dc.l 0
  12231. PLR1s_yvel: dc.l 0
  12232. PLR1s_zoff: dc.l 0
  12233. PLR1s_tyoff: dc.l 0
  12234. PLR1s_xspdval: dc.l 0
  12235. PLR1s_zspdval: dc.l 0
  12236. PLR1s_Zone: dc.w 0
  12237. PLR1s_Roompt: dc.l 0
  12238. PLR1s_OldRoompt: dc.l 0
  12239. PLR1s_PointsToRotatePtr: dc.l 0
  12240. PLR1s_ListOfGraphRooms: dc.l 0
  12241. PLR1s_oldxoff: dc.l 0
  12242. PLR1s_oldzoff: dc.l 0
  12243. PLR1s_height: dc.l 0
  12244. PLR1s_targheight: dc.l 0
  12245.  
  12246. p1_xoff: dc.l 0
  12247. p1_zoff: dc.l 0
  12248. p1_yoff: dc.l 0
  12249. p1_height: dc.l 0
  12250. p1_angpos: dc.w 0
  12251. p1_bobble: dc.w 0
  12252. p1_clicked: dc.b 0
  12253. p1_spctap: dc.b 0
  12254. p1_ducked: dc.b 0
  12255. p1_gunselected: dc.b 0
  12256. p1_fire: dc.b 0
  12257.  even
  12258. p1_holddown: dc.w 0
  12259.  
  12260.  ds.w 4
  12261.  
  12262. PLR2: dc.b $ff
  12263.  even
  12264. PLR2_GunSelected: dc.w 0
  12265. PLR2_energy: dc.w 191
  12266. PLR2_cosval: dc.w 0
  12267. PLR2_sinval: dc.w 0
  12268. PLR2_angpos: dc.w 0
  12269. PLR2_angspd: dc.w 0
  12270. PLR2_xoff: dc.l 0
  12271. PLR2_yoff: dc.l 0
  12272. PLR2_yvel: dc.l 0
  12273. PLR2_zoff: dc.l 0
  12274. PLR2_tyoff: dc.l 0
  12275. PLR2_xspdval: dc.l 0
  12276. PLR2_zspdval: dc.l 0
  12277. PLR2_Zone: dc.w 0
  12278. PLR2_Roompt: dc.l 0
  12279. PLR2_OldRoompt: dc.l 0
  12280. PLR2_PointsToRotatePtr: dc.l 0
  12281. PLR2_ListOfGraphRooms: dc.l 0
  12282. PLR2_oldxoff: dc.l 0
  12283. PLR2_oldzoff: dc.l 0
  12284. PLR2_StoodInTop: dc.b 0
  12285.  even
  12286. PLR2_height: dc.l 0
  12287.  
  12288.  ds.w 4
  12289.  
  12290. PLR2s_cosval: dc.w 0
  12291. PLR2s_sinval: dc.w 0
  12292. PLR2s_angpos: dc.w 0
  12293. PLR2s_angspd: dc.w 0
  12294. PLR2s_xoff: dc.l 0
  12295. PLR2s_yoff: dc.l 0
  12296. PLR2s_yvel: dc.l 0
  12297. PLR2s_zoff: dc.l 0
  12298. PLR2s_tyoff: dc.l 0
  12299. PLR2s_xspdval: dc.l 0
  12300. PLR2s_zspdval: dc.l 0
  12301. PLR2s_Zone: dc.w 0
  12302. PLR2s_Roompt: dc.l 0
  12303. PLR2s_OldRoompt: dc.l 0
  12304. PLR2s_PointsToRotatePtr: dc.l 0
  12305. PLR2s_ListOfGraphRooms: dc.l 0
  12306. PLR2s_oldxoff: dc.l 0
  12307. PLR2s_oldzoff: dc.l 0
  12308. PLR2s_height: dc.l 0
  12309. PLR2s_targheight: dc.l 0
  12310.  
  12311.  ds.w 4
  12312.  
  12313. p2_xoff: dc.l 0
  12314. p2_zoff: dc.l 0
  12315. p2_yoff: dc.l 0
  12316. p2_height: dc.l 0
  12317. p2_angpos: dc.w 0
  12318. p2_bobble: dc.w 0
  12319. p2_clicked: dc.b 0
  12320. p2_spctap: dc.b 0
  12321. p2_ducked: dc.b 0
  12322. p2_gunselected: dc.b 0
  12323. p2_fire: dc.b 0
  12324.  even
  12325. p2_holddown: dc.w 0
  12326.  
  12327. liftanimtab:
  12328.  
  12329. endliftanimtab:
  12330.  
  12331. glassball:
  12332. ; incbin "glassball.inc"
  12333.  
  12334. endglass
  12335. glassballpt: dc.l glassball
  12336.  
  12337. rndtab: ; incbin "randfile"
  12338. endrnd: 
  12339.  
  12340. brightanimtab:
  12341. ; dcb.w 200,20
  12342. ; dc.w 5
  12343. ; dc.w 10,20
  12344. ; dc.w 5
  12345. ; dcb.w 30,20
  12346. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  12347. ; dcb.w 40,0
  12348. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  12349. ; dcb.w 300,0
  12350. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  12351. ; dc.w -1
  12352.  
  12353. Roompt: dc.l 0
  12354. OldRoompt: dc.l 0
  12355.  
  12356. *****************************************************************
  12357.  *
  12358.  include "AB3:CHEESESAUCE/LevelData2"
  12359.  *
  12360. *****************************************************************
  12361.  
  12362.  
  12363. wallpt: dc.l 0
  12364. floorpt: dc.l 0
  12365.  
  12366. Rotated:
  12367.  ds.l 2*800 
  12368. ObjRotated:
  12369.  ds.l 2*500
  12370.  
  12371. OnScreen:
  12372.  ds.l 2*800 
  12373.  
  12374. startwait: dc.w 0
  12375. endwait: dc.w 0
  12376.  
  12377. ;Faces:
  12378. ; incbin "faces2raw"
  12379.  
  12380. LINKS: dc.l 0
  12381. FLYLINKS: dc.l 0
  12382. *************************************************************
  12383.  
  12384. consttab:
  12385.  incbin "constantfile"
  12386.  
  12387. *******************************************************************
  12388.  
  12389.  
  12390.  
  12391. *********************************
  12392.  
  12393. ; include "ab3:source_4000/loadmod.a"
  12394. ; include "ab3:source_4000/proplayer.a"
  12395.  
  12396.  
  12397. darkentab: 
  12398. ;val SET 0
  12399. ; REPT 256
  12400. ; dc.b val
  12401. ;val SET val+1
  12402. ; ENDR
  12403. ; incbin "darkenfile"
  12404.  
  12405. MIDDLEX: dc.w 0
  12406. RIGHTX: dc.w 192
  12407. FULLSCR: dc.w 0
  12408.  
  12409. SHADINGTABLE: incbin "SHADEFILE" 
  12410.  
  12411. ******************************************
  12412. * Link file !*****************************
  12413. ******************************************
  12414.  
  12415. LINKSPACE:
  12416. ; ds.l 22500
  12417. ; incbin "ab3:includes/test.lnk"
  12418.  
  12419. LINKname:
  12420.  dc.b "tkg1:includes/test.lnk",0
  12421.     even
  12422. LINKFILE:
  12423.  dc.l LINKSPACE
  12424.  
  12425. ******************************************
  12426.  
  12427.  
  12428. brightentab:
  12429.  incbin "brightenfile"
  12430. WorkSpace:
  12431.  ds.l 8192 
  12432. waterfile:
  12433.  incbin "waterfile"
  12434.  
  12435.  SECTION ffff,CODE_C
  12436.  
  12437. nullspr: dc.l 0
  12438.  
  12439.  cnop 0,8
  12440. ;borders:
  12441. ; incbin "newleftbord"
  12442. ; incbin "newrightbord"
  12443.  
  12444. health: 
  12445. ;incbin "healthstrip"
  12446. Ammunition: 
  12447. ;incbin "ammostrip"
  12448. healthpal: 
  12449. ;incbin "healthpal"
  12450. PanelKeys: 
  12451. ;incbin "greenkey"
  12452. ; incbin "redkey"
  12453. ; incbin "yellowkey"
  12454. ; incbin "bluekey"
  12455.  
  12456. null: ds.w 100
  12457. null2: ds.w 100
  12458. null3: ds.w 100
  12459. null4: ds.w 100
  12460.  
  12461.  
  12462. Blurbfield:
  12463.  
  12464.  dc.w bpl1ptl
  12465. bl1l: dc.w 0
  12466.  dc.w bpl1pth
  12467. bl1h: dc.w 0
  12468.  
  12469.  dc.w diwstart,$2c81
  12470.  dc.w diwstop,$1cc1
  12471.  dc.w ddfstart,$38
  12472.  dc.w ddfstop,$b8
  12473.  dc.w bplcon0,$9201
  12474.  dc.w bplcon1,0
  12475.  dc.w $106,$c40
  12476. blcols:
  12477.  dc.w col0,0
  12478.  dc.w col1,$fff
  12479.  
  12480.  dc.w $108,0
  12481.  dc.w $10a,0
  12482.  
  12483.  dc.w $ffff,$fffe
  12484.  dc.w $ffff,$fffe
  12485.  
  12486. nullline:
  12487.  ds.b 80    
  12488.  
  12489.  include "ab3:CHEESESAUCE/titlecop.s"
  12490.  
  12491. bigfield:    
  12492.                 ; Start of our copper list.
  12493.  dc.w dmacon,$8020
  12494.  dc.w intreq,$8011
  12495.  dc.w $1fc,$f
  12496.  dc.w diwstart
  12497. winstart: dc.w $2cb1
  12498.  dc.w diwstop
  12499. winstop: dc.w $2c91
  12500.  dc.w ddfstart
  12501. fetchstart: dc.w $48
  12502.  dc.w ddfstop
  12503. fetchstop: dc.w $88
  12504.  
  12505. bordercols:
  12506.  incbin "borderpal"
  12507.  
  12508.  dc.w spr0ptl
  12509. s0l:
  12510.  dc.w 0
  12511.  dc.w spr0pth
  12512. s0h:
  12513.  dc.w 0
  12514.  dc.w spr1ptl
  12515. s1l:
  12516.  dc.w 0
  12517.  dc.w spr1pth
  12518. s1h:
  12519.  dc.w 0
  12520.  dc.w spr2ptl
  12521. s2l:
  12522.  dc.w 0
  12523.  dc.w spr2pth
  12524. s2h:
  12525.  dc.w 0
  12526.  dc.w spr3ptl
  12527. s3l:
  12528.  dc.w 0
  12529.  dc.w spr3pth
  12530. s3h:
  12531.  dc.w 0
  12532.  dc.w spr4ptl
  12533. s4l:
  12534.  dc.w 0
  12535.  dc.w spr4pth
  12536. s4h:
  12537.  dc.w 0
  12538.  dc.w spr5ptl
  12539. s5l:
  12540.  dc.w 0
  12541.  dc.w spr5pth
  12542. s5h:
  12543.  dc.w 0
  12544.  dc.w spr6ptl
  12545. s6l:
  12546.  dc.w 0
  12547.  dc.w spr6pth
  12548. s6h:
  12549.  dc.w 0
  12550.  dc.w spr7ptl
  12551. s7l:
  12552.  dc.w 0
  12553.  dc.w spr7pth
  12554. s7h:
  12555.  dc.w 0
  12556.  
  12557.  dc.w $106,$c42
  12558.  incbin "borderpal"
  12559.  
  12560.  dc.w $106,$8c42
  12561.  dc.w col0
  12562. hitcol: dc.w $0
  12563.  dc.w $106,$c42
  12564.  dc.w col0
  12565. hitcol2: dc.w 0
  12566.  
  12567.  dc.w bplcon0,$7201
  12568.  dc.w bplcon1
  12569. smoff:
  12570.  dc.w $0
  12571.  
  12572.  dc.w $108
  12573. modulo: dc.w -24
  12574.  dc.w $10a,-24
  12575.  
  12576. ; dc.w $1001,$ff00
  12577. ; dc.w intreq,$11
  12578.  
  12579. ;PALETTESPACE:
  12580. ; dcb.l 528,$1fe0000
  12581. ;
  12582. ; dc.w $2001,$ff00
  12583.  
  12584.  dc.w bpl1pth
  12585. pl1h
  12586.  dc.w 0
  12587.  
  12588.  dc.w bpl1ptl
  12589. pl1l
  12590.  dc.w 0
  12591.  
  12592.  dc.w bpl2pth
  12593. pl2h
  12594.  dc.w 0
  12595.  
  12596.  dc.w bpl2ptl
  12597. pl2l
  12598.  dc.w 0
  12599.  
  12600.  dc.w bpl3pth
  12601. pl3h
  12602.  dc.w 0
  12603.  
  12604.  dc.w bpl3ptl
  12605. pl3l
  12606.  dc.w 0
  12607.  
  12608.  dc.w bpl4pth
  12609. pl4h
  12610.  dc.w 0
  12611.  
  12612.  dc.w bpl4ptl
  12613. pl4l
  12614.  dc.w 0
  12615.  
  12616.  dc.w bpl5pth
  12617. pl5h
  12618.  dc.w 0
  12619.  
  12620.  dc.w bpl5ptl
  12621. pl5l
  12622.  dc.w 0
  12623.  
  12624.  dc.w bpl6pth
  12625. pl6h
  12626.  dc.w 0
  12627.  
  12628.  dc.w bpl6ptl
  12629. pl6l
  12630.  dc.w 0
  12631.  
  12632.  dc.w bpl7pth
  12633. pl7h
  12634.  dc.w 0
  12635.  
  12636.  dc.w bpl7ptl
  12637. pl7l
  12638.  dc.w 0
  12639.  
  12640.  dc.w bpl8pth
  12641. pl8h
  12642.  dc.w 0
  12643.  
  12644.  dc.w bpl8ptl
  12645. pl8l
  12646.  dc.w 0
  12647.  
  12648.  dc.w $1001,$ff00
  12649.  dc.w intreq,$11
  12650. yposcop:
  12651.  dc.w $2a11,$fffe
  12652.  dc.w $8a,0
  12653.  
  12654.  
  12655. ;val SET $2c
  12656. ;SCRMODULOS:
  12657. ; REPT 232
  12658. ; dc.b val,1,$ff,$fe
  12659. ; dc.w $108,0
  12660. ; dc.w $10a,0
  12661. ; dc.b val,$df,$ff,$fe
  12662. ;val SET (val+1)&$ff
  12663. ; ENDR
  12664. ;
  12665. ; dc.w $108,0,$10a,0
  12666. ; dc.w $2401,$ff00
  12667. ; dc.w ddfstop,$c8
  12668. ; dc.w bplcon0,$9201
  12669. ; dc.w bpl1ptl
  12670. ;;scroll:
  12671. ; dc.w 0
  12672. ; dc.w bpl1pth
  12673. ;scrolh:
  12674. ; dc.w 0
  12675. ;
  12676. ; dc.w $106,$c40
  12677. ; dc.w $180,0
  12678. ; dc.w $182,$f0
  12679. ;; dc.w $108,40
  12680. ;; dc.w $10a,40
  12681. ;
  12682. ;; dc.w $80
  12683. ;;JUMPBACKH:
  12684. ;; dc.w 0
  12685. ;; dc.w $82
  12686. ;;JUMPBACKL:
  12687. ; dc.w 0
  12688.  
  12689. ; dc.w $8a,0
  12690. ; 
  12691. ; dc.w $ffff,$fffe
  12692. ; dc.w $ffff,$fffe
  12693.  
  12694.  
  12695. ;yposcop:
  12696. ; dc.w $2a11,$fffe
  12697. ; dc.w $8a,0
  12698.  
  12699. ; ds.l 104*12
  12700.  
  12701. ;colbars:
  12702. ;val SET $2a
  12703. ; dcb.l 104*80,$1fe0000
  12704. ; dc.w $106,$c42
  12705. ; 
  12706. ; dc.w $80
  12707. ;pch1:
  12708. ; dc.w 0
  12709. ; dc.w $82
  12710. ;pcl1:
  12711. ; dc.w 0 
  12712. ; 
  12713. ; dc.w $88,0
  12714. ; 
  12715. ; dc.w $ffff,$fffe       ; End copper list.
  12716.  
  12717. ; ds.l 104*12
  12718.  
  12719.  
  12720. ;colbars2:
  12721. ;val SET $2a
  12722. ; dcb.l 104*80,$1fe0000
  12723. ; 
  12724. ; dc.w $106,$c42
  12725. ; 
  12726. ; dc.w $80
  12727. ;pch2:
  12728. ; dc.w 0
  12729. ; dc.w $82
  12730. ;pcl2:
  12731. ; dc.w 0
  12732. ; 
  12733. ; dc.w $88,0
  12734. ; 
  12735. ; dc.w $ffff,$fffe       ; End copper list.
  12736.  
  12737. ; ds.l 104*10
  12738.  
  12739. NullCopper:
  12740.  dc.w $ffff,$fffe
  12741.  
  12742. PALETTEBIT:
  12743.  incbin "256palette"
  12744.  dc.w $ffff,$fffe
  12745.  
  12746.  
  12747. old: dc.l 0
  12748.  
  12749.  CNOP 0,64
  12750. SCROLLSCRN: ds.l 20*16
  12751.  
  12752. SCROLLOFFSET: dc.w 0
  12753. SCROLLTIMER: dc.w 100
  12754. SCROLLDIRECTION: dc.w 1
  12755. SCROLLXPOS: dc.w 0
  12756. SCROLLPOINTER: dc.l testscroll
  12757. ENDSCROLL: dc.l endtestscroll
  12758.  
  12759. testscroll:
  12760. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  12761. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12762. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  12763. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12764.  
  12765. BLANKSCROLL:
  12766.  dc.b "                                                                                "
  12767. endtestscroll: 
  12768.  
  12769. prot5: dc.w 0
  12770. PanelCop:
  12771.  
  12772.  dc.w $80
  12773. och:
  12774.  dc.w 0
  12775.  dc.w $82
  12776. ocl:
  12777.  dc.w 0
  12778.  
  12779. statskip:
  12780.  dc.w $1fe,0
  12781.  dc.w $1fe,0
  12782.  
  12783.  dc.w $10c,0
  12784.  dc.w bplcon0,$1201
  12785.  dc.w bpl1ptl
  12786. n1l:
  12787.  dc.w 0
  12788.  dc.w bpl1pth
  12789. n1h:
  12790.  dc.w 0
  12791.  dc.w $108,-24
  12792. ; incbin "Panelpal"
  12793.  
  12794. PALETTESPACE:
  12795.  dcb.l 528,$1fe0000
  12796.  
  12797.  dc.w bpl2pth
  12798. p2h
  12799.  dc.w 0
  12800.  
  12801.  dc.w bpl2ptl
  12802. p2l
  12803.  dc.w 0
  12804.  
  12805.  dc.w bpl3pth
  12806. p3h
  12807.  dc.w 0
  12808.  
  12809.  dc.w bpl3ptl
  12810. p3l
  12811.  dc.w 0
  12812.  
  12813.  dc.w bpl4pth
  12814. p4h
  12815.  dc.w 0
  12816.  dc.w bpl4ptl
  12817. p4l
  12818.  dc.w 0
  12819.  dc.w bpl5pth
  12820. p5h
  12821.  dc.w 0
  12822.  dc.w bpl5ptl
  12823. p5l
  12824.  dc.w 0
  12825.  dc.w bpl6pth
  12826. p6h
  12827.  dc.w 0
  12828.  dc.w bpl6ptl
  12829. p6l
  12830.  dc.w 0
  12831.  dc.w bpl7pth
  12832. p7h
  12833.  dc.w 0
  12834.  dc.w bpl7ptl
  12835. p7l
  12836.  dc.w 0
  12837.  dc.w bpl8pth
  12838. p8h
  12839.  dc.w 0
  12840.  dc.w bpl8ptl
  12841. p8l
  12842.  dc.w 0
  12843.  
  12844.  
  12845.  dc.w ddfstart,$38
  12846.  dc.w ddfstop,$b8
  12847.  dc.w diwstart,$2c81
  12848.  dc.w diwstop,$ecc1
  12849.  
  12850.  dc.w bplcon0
  12851. Panelcon: dc.w $0211
  12852.  dc.w bpl1pth
  12853. p1h
  12854.  dc.w 0
  12855.  
  12856.  dc.w bpl1ptl
  12857. p1l
  12858.  dc.w 0
  12859.  
  12860.  
  12861.  dc.w $108,0
  12862.  dc.w $10a,0
  12863.  
  12864. ; dc.w $ffff,$fffe
  12865.  
  12866.  dc.w $108,0,$10a,0
  12867.  dc.w $e401,$ff00
  12868.  dc.w ddfstop,$c8
  12869.  dc.w bplcon0,$9201
  12870.  dc.w bpl1ptl
  12871. scroll:
  12872.  dc.w 0
  12873.  dc.w bpl1pth
  12874. scrolh:
  12875.  dc.w 0
  12876.  
  12877.  dc.w $106,$c40
  12878.  dc.w $180,0
  12879.  dc.w $182,$f0
  12880. ; dc.w $108,40
  12881. ; dc.w $10a,40
  12882.  
  12883. ; dc.w $80
  12884. ;JUMPBACKH:
  12885. ; dc.w 0
  12886. ; dc.w $82
  12887. ;JUMPBACKL:
  12888. ; dc.w 0
  12889.  
  12890. ; dc.w $8a,0
  12891.  
  12892.  dc.w $ffff,$fffe
  12893.  
  12894.  
  12895.  dc.w $ffff,$fffe
  12896.  
  12897.  dc.w $180,$fff
  12898.  
  12899.  
  12900.  dc.w $f801,$ff00
  12901.  dc.w col1,$50
  12902.  dc.w $f901,$ff00
  12903.  dc.w col1,$90
  12904.  dc.w $fa01,$ff00
  12905.  dc.w col1,$f0
  12906.  dc.w $fb01,$ff00
  12907.  dc.w col1,$f0
  12908.  dc.w $fc01,$ff00
  12909.  dc.w col1,$90
  12910.  dc.w $fd01,$ff00
  12911.  dc.w col1,$50
  12912.  
  12913.  dc.w $fe01,$ff00
  12914.  dc.w col1,$fff
  12915.  
  12916.   
  12917.  dc.w $ffff,$fffe
  12918.  
  12919.  cnop 0,64
  12920. FacePlace:
  12921. ; ds.l 6*32*5
  12922.  
  12923. TEXTSCRN: dc.l 0
  12924.  
  12925. TEXTCOP:
  12926.  dc.w intreq,$8030
  12927.  
  12928.  dc.w spr0ptl
  12929. txs0l:
  12930.  dc.w 0
  12931.  dc.w spr0pth
  12932. txs0h:
  12933.  dc.w 0
  12934.  dc.w spr1ptl
  12935. txs1l:
  12936.  dc.w 0
  12937.  dc.w spr1pth
  12938. txs1h:
  12939.  dc.w 0
  12940.  dc.w spr2ptl
  12941. txs2l:
  12942.  dc.w 0
  12943.  dc.w spr2pth
  12944. txs2h:
  12945.  dc.w 0
  12946.  dc.w spr3ptl
  12947. txs3l:
  12948.  dc.w 0
  12949.  dc.w spr3pth
  12950. txs3h:
  12951.  dc.w 0
  12952.  dc.w spr4ptl
  12953. txs4l:
  12954.  dc.w 0
  12955.  dc.w spr4pth
  12956. txs4h:
  12957.  dc.w 0
  12958.  dc.w spr5ptl
  12959. txs5l:
  12960.  dc.w 0
  12961.  dc.w spr5pth
  12962. txs5h:
  12963.  dc.w 0
  12964.  dc.w spr6ptl
  12965. txs6l:
  12966.  dc.w 0
  12967.  dc.w spr6pth
  12968. txs6h:
  12969.  dc.w 0
  12970.  dc.w spr7ptl
  12971. txs7l:
  12972.  dc.w 0
  12973.  dc.w spr7pth
  12974. txs7h:
  12975.  dc.w 0
  12976.  
  12977.  
  12978.  dc.w $10c,$0088
  12979.  
  12980.  dc.w $1fc,$f
  12981.  dc.w diwstart,$2c81    ; Top left corner of screen.
  12982.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12983.  dc.w ddfstart,$38      ; Data fetch start.
  12984.  dc.w ddfstop,$c8       ; Data fetch stop.
  12985.  
  12986.  dc.w bplcon0
  12987. TSCP:
  12988.  dc.w $9201
  12989.  
  12990.  dc.w $106,$c40
  12991.  
  12992.  dc.w $2a01,$ff00
  12993.  
  12994.  dc.w col0,0
  12995.  dc.w col1
  12996. TOPLET:
  12997. TXTCOLL:
  12998.  dc.w 0
  12999.   dc.w col2
  13000. BOTLET:
  13001.  dc.w 0
  13002.  dc.w col3
  13003. ALLTEXT:
  13004.  dc.w $fff
  13005.  dc.w $106,$e40
  13006.  dc.w col3
  13007. ALLTEXTLOW:
  13008.  dc.w $0
  13009.  
  13010.  
  13011.  dc.w bpl1pth
  13012. TSPTh:
  13013.  dc.w 0
  13014.  dc.w bpl1ptl
  13015. TSPTl:
  13016.  dc.w 0
  13017.  
  13018.  dc.w bpl2pth
  13019. TSPTh2:
  13020.  dc.w 0
  13021.  dc.w bpl2ptl
  13022. TSPTl2:
  13023.  dc.w 0
  13024.  
  13025.  
  13026.  dc.w $108,0
  13027.  dc.w $10a,0
  13028.  
  13029.  dc.w $ffff,$fffe
  13030.  
  13031. ********************************************
  13032. * Stuff you don't have to worry about yet. *
  13033. ********************************************
  13034.  
  13035. closeeverything:
  13036.  
  13037. ; jsr mt_end
  13038.  
  13039.  move.l #nullcop,d0
  13040. ; move.l old,d0
  13041.  
  13042.  
  13043. ;charlie  
  13044.  move.l d0,$dff080     ; Restore old copper list.
  13045.  move.w d0,ocl
  13046.  swap d0
  13047.  move.w d0,och
  13048.  
  13049. ; move.l doslib,a6
  13050. ; move.l #4,d1
  13051. ; jsr -198(a6)
  13052.  
  13053. ; move.l doslib,d0
  13054. ; move.l d0,a1
  13055. ; move.l 4.w,a6
  13056. ; jsr CloseLib(a6)
  13057.  
  13058.  move.l #$dff000,a6
  13059.  move.w #$8020,dmacon(a6)
  13060.  move.w #$f,dmacon(a6)
  13061.  
  13062. ; move.l 4.w,a6
  13063. ; lea VBLANKInt,a1
  13064. ; moveq #INTB_COPER,d0
  13065. ; jsr _LVORemIntServer(a6)
  13066.  
  13067. ; IFEQ CD32VER
  13068. ; move.l OLDKINT,$68.w
  13069. ; ENDC
  13070. ; move.w saveinters,d0
  13071. ; or.w #$c000,d0
  13072. ; move.w d0,intena(a6)
  13073.  clr.w $dff0a8
  13074.  clr.w $dff0b8
  13075.  clr.w $dff0c8
  13076.  clr.w $dff0d8
  13077.  
  13078.  
  13079. ; move.l oldview,a1
  13080. ; move.l a1,d0
  13081. ; move.l gfxbase,a6
  13082. ; jsr -$de(a6)
  13083.  
  13084. ; cmp.b #'s',mors
  13085. ; beq.s leaveold
  13086. ; move.w #$f8e,$dff1dc
  13087. ;leaveold:
  13088.  
  13089.  jsr RELEASELEVELMEM
  13090.  jsr RELEASESCRNMEM
  13091.  
  13092.  move.l #0,d0
  13093.  
  13094.  rts
  13095.  
  13096.  
  13097.  
  13098. intbase: dc.l 0
  13099. gfxbase: dc.l 0
  13100. oldview: dc.l 0
  13101.  
  13102. stuff:
  13103.  
  13104.     PRSDL
  13105.     Lea    gfxname(pc),a1    
  13106.     Moveq.l    #0,d0
  13107.     Move.l    $4.w,a6    
  13108.     Jsr    -$228(a6)
  13109.     add.w d1,RVAL1
  13110.     Move.l     d0,gfxbase
  13111.     Move.l    d0,a6                Use As Base Reg
  13112.     Move.l    34(a6),oldview
  13113.     move.l 38(a6),old
  13114.     rts
  13115.  
  13116. gfxname dc.b "graphics.library",0
  13117.  even
  13118. INTUNAME    dc.b    "intuition.library",0
  13119.  
  13120.  even
  13121.  
  13122.  
  13123.  cnop 0,64
  13124.  
  13125. Panel:
  13126.  dc.l 0
  13127.  
  13128. TimerScr: 
  13129. ;ds.b 40*64
  13130.  
  13131. scrntab:
  13132.  ds.b 16
  13133. val SET 32
  13134.  REPT 96
  13135.  dc.b val,val,val
  13136. val SET val+1
  13137.  ENDR
  13138.  ds.b 16
  13139.  
  13140. smallscrntab:
  13141. val SET 32
  13142.  REPT 96
  13143.  dc.b val,val
  13144. val SET val+1
  13145.  ENDR
  13146.  
  13147. ; dc.l 0
  13148. ; incbin "ab3:includes/newborderRAW"
  13149. ; ds.b 80
  13150. ;scrn2:
  13151. ; dc.l 0
  13152.  
  13153. ;flib:
  13154. ; incbin "ab3:includes/newborderRAW"
  13155. ; ds.b 80
  13156. ;flib2:
  13157. ; incbin "ab3:includes/newborderRAW"
  13158. ; ds.b 80
  13159.  
  13160. ; incbin "ab3:includes/newborderRAW"
  13161. ; ds.b 80
  13162.  
  13163. SCRNDRAWPT: dc.l PANELSTRIP
  13164. ;SCRNSHOWPT: dc.l 0
  13165.  
  13166. PANELSTRIP: incbin "ab3:includes/smallpanelraw"
  13167.  
  13168.  
  13169.  cnop 0,64
  13170. scrn:
  13171.  dcb.l 8,$33333333
  13172.  dc.l 0
  13173.  dc.l 0
  13174.  
  13175.  dcb.l 8,$0f0f0f0f
  13176.  dc.l 0
  13177.  dc.l 0
  13178.  
  13179.  dcb.l 8,$00ff00ff
  13180.  dc.l 0
  13181.  dc.l 0
  13182.  
  13183.  dcb.l 8,$0000ffff
  13184.  dc.l 0
  13185.  dc.l 0
  13186.  
  13187.  dc.l 0,-1,0,-1,0,-1,0,-1
  13188.  dc.l 0
  13189.  dc.l 0
  13190.  
  13191.  dc.l -1,-1,0,0,-1,-1,0,0
  13192.  dc.l 0
  13193.  dc.l 0
  13194.  
  13195.  dc.l 0,0,-1,-1,-1,-1,-1,-1
  13196.  dc.l 0
  13197.  dc.l 0
  13198.  
  13199. NumTimes: dc.l 0
  13200. TimeCount: dc.l 0
  13201. oldtime: dc.l 0
  13202. counting: dc.b 0
  13203. oktodisplay: dc.b 0
  13204.  
  13205. INITTIMER:
  13206.  move.l #0,TimeCount
  13207.  move.l #0,NumTimes
  13208.  rts
  13209.  
  13210. STARTCOUNT:
  13211.  move.l d0,-(a7)
  13212.  move.l $dff004,d0
  13213.  and.l #$1ffff,d0
  13214.  move.l d0,oldtime
  13215.  st counting
  13216.  move.l (a7)+,d0
  13217.  rts
  13218.  
  13219. STOPCOUNT:
  13220.  move.l d0,-(a7)
  13221.  move.l $dff004,d0
  13222.  and.l #$1ffff,d0
  13223.  
  13224.  sub.l oldtime,d0
  13225.  cmp.l #-256,d0
  13226.  bge.s okcount
  13227.  add.l #313*256,d0
  13228. okcount:
  13229.  add.l d0,TimeCount
  13230.  addq.l #1,NumTimes
  13231.  clr.b counting
  13232.  move.l (a7)+,d0
  13233.  rts
  13234.  
  13235. STOPCOUNTNOADD:
  13236.  move.l d0,-(a7)
  13237.  move.l $dff004,d0
  13238.  and.l #$1ffff,d0
  13239.  
  13240.  sub.l oldtime,d0
  13241.  cmp.l #-256,d0
  13242.  bge.s okcount2
  13243.  add.l #313*256,d0
  13244. okcount2:
  13245.  add.l d0,TimeCount
  13246.  clr.b counting
  13247.  move.l (a7)+,d0
  13248.  rts
  13249.  
  13250. maxbot: dc.w 0
  13251. tstneg: dc.l 0
  13252.  
  13253. STOPTIMER:
  13254.  st oktodisplay
  13255.  rts
  13256.  
  13257. digits: incbin "numbers.inc"
  13258.  
  13259. COMPACTMAP: ds.l 257
  13260.  
  13261. BIGMAP: ds.l 256*10
  13262.  
  13263.  Section Sounds,CODE_C
  13264.  
  13265. nullcop:
  13266.  dc.w $106,$c40
  13267.  dc.w $180,0 
  13268.  dc.w $100,$0
  13269.  dc.w $ffff,$fffe
  13270.  
  13271. Scream:
  13272. ; incbin "ab3:sounds/Scream"
  13273. ; ds.w 100
  13274. EndScream:
  13275. LowScream:
  13276. ; incbin "ab3:sounds/LowScream"
  13277. ; ds.w 100
  13278. EndLowScream:
  13279. BaddieGun:
  13280. ; incbin "ab3:sounds/BaddieGun"
  13281. EndBaddieGun:
  13282. bass:
  13283. ; incbin "ab3:sounds/backbass+drum"
  13284. bassend:
  13285. Shoot:
  13286. ; incbin "ab3:sounds/fire!"
  13287. EndShoot:
  13288. Munch:
  13289. ; incbin "ab3:sounds/munch"
  13290. EndMunch:
  13291. PooGun:
  13292. ; incbin "ab3:sounds/shoot.dm"
  13293. EndPooGun:
  13294. Collect:
  13295. ; incbin "ab3:sounds/collect"
  13296. EndCollect:
  13297. DoorNoise:
  13298. ; incbin "ab3:sounds/newdoor"
  13299. EndDoorNoise:
  13300. Stomp:
  13301. ; incbin "ab3:sounds/footstep3"
  13302. EndStomp:
  13303. SwitchNoise:
  13304. ; incbin "ab3:sounds/switch"
  13305. EndSwitch:
  13306. Reload:
  13307. ; incbin "ab3:sounds/switch1.SFX"
  13308. EndReload:
  13309.  
  13310. CHEATFRAME:
  13311.  dc.b 26,20,33,27,17,12
  13312. ENDCHEAT:
  13313.  
  13314. NoAmmo:
  13315. ; incbin "ab3:sounds/noammo"
  13316. EndNoAmmo:
  13317. Splotch:
  13318. ; incbin "ab3:sounds/splotch"
  13319. EndSplotch:
  13320. SplatPop:
  13321. ; incbin "ab3:sounds/splatpop"
  13322. EndSplatPop:
  13323. Boom:
  13324. ; incbin "ab3:sounds/boom"
  13325. EndBoom:
  13326. Hiss:
  13327. ; incbin "ab3:sounds/newhiss"
  13328. EndHiss:
  13329. Howl1:
  13330. ; incbin "ab3:sounds/howl1"
  13331. EndHowl1:
  13332. Howl2:
  13333. ; incbin "ab3:sounds/howl2"
  13334. EndHowl2:
  13335. Pant:
  13336. ; incbin "ab3:sounds/pant"
  13337. EndPant:
  13338. Whoosh:
  13339. ; incbin "ab3:sounds/whoosh"
  13340. EndWhoosh:
  13341. ROAR:
  13342. ; incbin "ab3:sounds/bigscream"
  13343. EndROAR
  13344. whoosh:
  13345. ; incbin "ab3:sounds/flame"
  13346. Endwhoosh:
  13347.  SECTION music,code_c
  13348.  
  13349. UseAllChannels: dc.w 0
  13350.  
  13351. mt_init:
  13352.  
  13353.  
  13354.     move.l    mt_data,a0
  13355.     move.l    a0,a1
  13356.     add.l    #$3b8,a1
  13357.     moveq    #$7f,d0
  13358.     moveq    #0,d1
  13359. mt_loop:move.l    d1,d2
  13360.     subq.w    #1,d0
  13361. mt_lop2:move.b    (a1)+,d1
  13362.     cmp.b    d2,d1
  13363.     bgt.s    mt_loop
  13364.     dbf    d0,mt_lop2
  13365.     addq.b    #1,d2
  13366.  
  13367.     lea    mt_samplestarts(pc),a1
  13368.     asl.l    #8,d2
  13369.     asl.l    #2,d2
  13370.     add.l    #$43c,d2
  13371.     add.l    a0,d2
  13372.     move.l    d2,a2
  13373.     moveq    #$1e,d0
  13374. mt_lop3:
  13375.     clr.l    (a2)
  13376.     move.l    a2,(a1)+
  13377.     moveq    #0,d1
  13378.     move.w    42(a0),d1
  13379.     asl.l    #1,d1
  13380.     add.l    d1,a2
  13381.     add.l    #$1e,a0
  13382.     dbf    d0,mt_lop3
  13383.  
  13384.     or.b    #$2,$bfe001
  13385.     move.b    #$6,mt_speed
  13386.     clr.w    $dff0a8
  13387.     clr.w    $dff0b8
  13388.     clr.w    $dff0c8
  13389.     clr.w    $dff0d8
  13390.     clr.b    mt_songpos
  13391.     clr.b    mt_counter
  13392.     clr.w    mt_pattpos
  13393.     rts
  13394.  
  13395. mt_end:    clr.w    $dff0a8
  13396.     clr.w    $dff0b8
  13397.     clr.w    $dff0c8
  13398.     clr.w    $dff0d8
  13399.     move.w    #$f,$dff096
  13400.     rts
  13401.  
  13402. mt_music:
  13403.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  13404.     move.l    mt_data,a0
  13405.     addq.b    #$1,mt_counter
  13406.     move.b    mt_counter,D0
  13407.     cmp.b    mt_speed,D0
  13408.     blt.s    mt_nonew
  13409.     clr.b    mt_counter
  13410.     bra    mt_getnew
  13411.  
  13412. mt_nonew:
  13413.     lea    mt_voice1(pc),a6
  13414.     lea    $dff0a0,a5
  13415.     bsr    mt_checkcom
  13416.     lea    mt_voice2(pc),a6
  13417.     lea    $dff0b0,a5
  13418.     bsr    mt_checkcom
  13419. ;    tst.b UseAllChannels
  13420. ;    beq mt_endr
  13421.      lea    mt_voice3(pc),a6
  13422.     lea    $dff0c0,a5
  13423.     bsr    mt_checkcom
  13424.     lea    mt_voice4(pc),a6
  13425.     lea    $dff0d0,a5
  13426.     bsr    mt_checkcom
  13427.     bra    mt_endr
  13428.  
  13429. mt_arpeggio:
  13430.     moveq    #0,d0
  13431.     move.b    mt_counter,d0
  13432.     divs    #$3,d0
  13433.     swap    d0
  13434.     cmp.w    #$0,d0
  13435.     beq.s    mt_arp2
  13436.     cmp.w    #$2,d0
  13437.     beq.s    mt_arp1
  13438.  
  13439.     moveq    #0,d0
  13440.     move.b    $3(a6),d0
  13441.     lsr.b    #4,d0
  13442.     bra.s    mt_arp3
  13443. mt_arp1:moveq    #0,d0
  13444.     move.b    $3(a6),d0
  13445.     and.b    #$f,d0
  13446.     bra.s    mt_arp3
  13447. mt_arp2:move.w    $10(a6),d2
  13448.     bra.s    mt_arp4
  13449. mt_arp3:asl.w    #1,d0
  13450.     moveq    #0,d1
  13451.     move.w    $10(a6),d1
  13452.     lea    mt_periods(pc),a0
  13453.     moveq    #$24,d7
  13454. mt_arploop:
  13455.     move.w    (a0,d0.w),d2
  13456.     cmp.w    (a0),d1
  13457.     bge.s    mt_arp4
  13458.     addq.l    #2,a0
  13459.     dbf    d7,mt_arploop
  13460.     rts
  13461. mt_arp4:move.w    d2,$6(a5)
  13462.     rts
  13463.  
  13464. mt_getnew:
  13465.     move.l    mt_data,a0
  13466.     move.l    a0,a3
  13467.     move.l    a0,a2
  13468.     add.l    #$c,a3
  13469.     add.l    #$3b8,a2
  13470.     add.l    #$43c,a0
  13471.  
  13472.     moveq    #0,d0
  13473.     move.l    d0,d1
  13474.     move.b    mt_songpos,d0
  13475.     move.b    (a2,d0.w),d1
  13476.     asl.l    #8,d1
  13477.     asl.l    #2,d1
  13478.     add.w    mt_pattpos,d1
  13479.     clr.w    mt_dmacon
  13480.  
  13481.     lea    $dff0a0,a5
  13482.     lea    mt_voice1(pc),a6
  13483.     bsr    mt_playvoice
  13484.     lea    $dff0b0,a5
  13485.     lea    mt_voice2(pc),a6
  13486.     bsr    mt_playvoice
  13487. ;    tst.b UseAllChannels
  13488. ;    beq mt_setdma
  13489.     lea    $dff0c0,a5
  13490.     lea    mt_voice3(pc),a6
  13491.     bsr    mt_playvoice
  13492.     lea    $dff0d0,a5
  13493.     lea    mt_voice4(pc),a6
  13494.     bsr    mt_playvoice
  13495.     bra    mt_setdma
  13496.  
  13497. PROTCALC:
  13498. ;    include "ab3:source_4000/protcalc.s"
  13499.     incbin "ab3:includes/protcalc.bin"
  13500. ENDPROTCALC:
  13501.  
  13502. mt_playvoice:
  13503.     move.l    (a0,d1.l),(a6)
  13504.     addq.l    #4,d1
  13505.     moveq    #0,d2
  13506.     move.b    $2(a6),d2
  13507.     and.b    #$f0,d2
  13508.     lsr.b    #4,d2
  13509.     move.b    (a6),d0
  13510.     and.b    #$f0,d0
  13511.     or.b    d0,d2
  13512.     tst.b    d2
  13513.     beq.s    mt_setregs
  13514.     moveq    #0,d3
  13515.     lea    mt_samplestarts(pc),a1
  13516.     move.l    d2,d4
  13517.     subq.l    #$1,d2
  13518.     asl.l    #2,d2
  13519.     mulu    #$1e,d4
  13520.     move.l    (a1,d2.l),$4(a6)
  13521.     move.w    (a3,d4.l),$8(a6)
  13522.     move.w    $2(a3,d4.l),$12(a6)
  13523.     move.w    $4(a3,d4.l),d3
  13524.     tst.w    d3
  13525.     beq.s    mt_noloop
  13526.     move.l    $4(a6),d2
  13527.     asl.w    #1,d3
  13528.     add.l    d3,d2
  13529.     move.l    d2,$a(a6)
  13530.     move.w    $4(a3,d4.l),d0
  13531.     add.w    $6(a3,d4.l),d0
  13532.     move.w    d0,8(a6)
  13533.     move.w    $6(a3,d4.l),$e(a6)
  13534.     move.w    $12(a6),d0
  13535.     asr.w #2,d0
  13536.     move.w d0,$8(a5)
  13537.     bra.s    mt_setregs
  13538. mt_noloop:
  13539.     move.l    $4(a6),d2
  13540.     add.l    d3,d2
  13541.     move.l    d2,$a(a6)
  13542.     move.w    $6(a3,d4.l),$e(a6)
  13543.     move.w    $12(a6),d0
  13544.     asr.w #2,d0
  13545.     move.w d0,$8(a5)
  13546. mt_setregs:
  13547.     move.w    (a6),d0
  13548.     and.w    #$fff,d0
  13549.     beq    mt_checkcom2
  13550.     move.b    $2(a6),d0
  13551.     and.b    #$F,d0
  13552.     cmp.b    #$3,d0
  13553.     bne.s    mt_setperiod
  13554.     bsr    mt_setmyport
  13555.     bra    mt_checkcom2
  13556. mt_setperiod:
  13557.     move.w    (a6),$10(a6)
  13558.     and.w    #$fff,$10(a6)
  13559.     move.w    $14(a6),d0
  13560.     move.w    d0,$dff096
  13561.     clr.b    $1b(a6)
  13562.  
  13563.     move.l    $4(a6),(a5)
  13564.     move.w    $8(a6),$4(a5)
  13565.     move.w    $10(a6),d0
  13566.     and.w    #$fff,d0
  13567.     move.w    d0,$6(a5)
  13568.     move.w    $14(a6),d0
  13569.     or.w    d0,mt_dmacon
  13570.     bra    mt_checkcom2
  13571.  
  13572. mt_setdma:
  13573.      move.w #250,d0
  13574. mt_wait:
  13575.      add.w #1,testchip
  13576.      dbra d0,mt_wait
  13577.     move.w    mt_dmacon,d0
  13578.     or.w    #$8000,d0
  13579.     and.w #%1111111111110011,d0
  13580.     move.w    d0,$dff096
  13581.     move.w #250,d0
  13582. mt_wait2:
  13583.     add.w #1,testchip
  13584.     dbra    d0,mt_wait2
  13585.     lea    $dff000,a5
  13586.     tst.b UseAllChannels
  13587.     beq.s noall
  13588.     lea    mt_voice4(pc),a6
  13589.     move.l    $a(a6),$d0(a5)
  13590.     move.w    $e(a6),$d4(a5)
  13591.     lea    mt_voice3(pc),a6
  13592.     move.l    $a(a6),$c0(a5)
  13593.     move.w    $e(a6),$c4(a5)
  13594. noall:
  13595.     lea    mt_voice2(pc),a6
  13596.     move.l    $a(a6),$b0(a5)
  13597.     move.w    $e(a6),$b4(a5)
  13598.     lea    mt_voice1(pc),a6
  13599.     move.l    $a(a6),$a0(a5)
  13600.     move.w    $e(a6),$a4(a5)
  13601.  
  13602.     add.w    #$10,mt_pattpos
  13603.     cmp.w    #$400,mt_pattpos
  13604.     bne.s    mt_endr
  13605. mt_nex:    clr.w    mt_pattpos
  13606.     clr.b    mt_break
  13607.     addq.b    #1,mt_songpos
  13608.     and.b    #$7f,mt_songpos
  13609.     move.b    mt_songpos,d1
  13610. ;    cmp.b    mt_data+$3b6,d1
  13611. ;    bne.s    mt_endr
  13612. ;    move.b    mt_data+$3b7,mt_songpos
  13613. mt_endr:tst.b    mt_break
  13614.     bne.s    mt_nex
  13615.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  13616.     rts
  13617.  
  13618. mt_setmyport:
  13619.     move.w    (a6),d2
  13620.     and.w    #$fff,d2
  13621.     move.w    d2,$18(a6)
  13622.     move.w    $10(a6),d0
  13623.     clr.b    $16(a6)
  13624.     cmp.w    d0,d2
  13625.     beq.s    mt_clrport
  13626.     bge.s    mt_rt
  13627.     move.b    #$1,$16(a6)
  13628.     rts
  13629. mt_clrport:
  13630.     clr.w    $18(a6)
  13631. mt_rt:    rts
  13632.  
  13633. CODESTORE: dc.l 0
  13634.  
  13635. mt_myport:
  13636.     move.b    $3(a6),d0
  13637.     beq.s    mt_myslide
  13638.     move.b    d0,$17(a6)
  13639.     clr.b    $3(a6)
  13640. mt_myslide:
  13641.     tst.w    $18(a6)
  13642.     beq.s    mt_rt
  13643.     moveq    #0,d0
  13644.     move.b    $17(a6),d0
  13645.     tst.b    $16(a6)
  13646.     bne.s    mt_mysub
  13647.     add.w    d0,$10(a6)
  13648.     move.w    $18(a6),d0
  13649.     cmp.w    $10(a6),d0
  13650.     bgt.s    mt_myok
  13651.     move.w    $18(a6),$10(a6)
  13652.     clr.w    $18(a6)
  13653. mt_myok:move.w    $10(a6),$6(a5)
  13654.     rts
  13655. mt_mysub:
  13656.     sub.w    d0,$10(a6)
  13657.     move.w    $18(a6),d0
  13658.     cmp.w    $10(a6),d0
  13659.     blt.s    mt_myok
  13660.     move.w    $18(a6),$10(a6)
  13661.     clr.w    $18(a6)
  13662.     move.w    $10(a6),$6(a5)
  13663.     rts
  13664.  
  13665. mt_vib:    move.b    $3(a6),d0
  13666.     beq.s    mt_vi
  13667.     move.b    d0,$1a(a6)
  13668.  
  13669. mt_vi:    move.b    $1b(a6),d0
  13670.     lea    mt_sin(pc),a4
  13671.     lsr.w    #$2,d0
  13672.     and.w    #$1f,d0
  13673.     moveq    #0,d2
  13674.     move.b    (a4,d0.w),d2
  13675.     move.b    $1a(a6),d0
  13676.     and.w    #$f,d0
  13677.     mulu    d0,d2
  13678.     lsr.w    #$6,d2
  13679.     move.w    $10(a6),d0
  13680.     tst.b    $1b(a6)
  13681.     bmi.s    mt_vibmin
  13682.     add.w    d2,d0
  13683.     bra.s    mt_vib2
  13684. mt_vibmin:
  13685.     sub.w    d2,d0
  13686. mt_vib2:move.w    d0,$6(a5)
  13687.     move.b    $1a(a6),d0
  13688.     lsr.w    #$2,d0
  13689.     and.w    #$3c,d0
  13690.     add.b    d0,$1b(a6)
  13691.     rts
  13692.  
  13693. mt_nop:    move.w    $10(a6),$6(a5)
  13694.     rts
  13695.  
  13696.  
  13697. mt_checkcom:
  13698.     move.w    $2(a6),d0
  13699.     and.w    #$fff,d0
  13700.     beq.s    mt_nop
  13701.     move.b    $2(a6),d0
  13702.     and.b    #$f,d0
  13703.     tst.b    d0
  13704.     beq    mt_arpeggio
  13705.     cmp.b    #$1,d0
  13706.     beq.s    mt_portup
  13707.     cmp.b    #$2,d0
  13708.     beq    mt_portdown
  13709.     cmp.b    #$3,d0
  13710.     beq    mt_myport
  13711.     cmp.b    #$4,d0
  13712.     beq    mt_vib
  13713.     move.w    $10(a6),$6(a5)
  13714.     cmp.b    #$a,d0
  13715.     beq.s    mt_volslide
  13716.     rts
  13717.  
  13718. mt_volslide:
  13719.     moveq    #0,d0
  13720.     move.b    $3(a6),d0
  13721.     lsr.b    #4,d0
  13722.     tst.b    d0
  13723.     beq.s    mt_voldown
  13724.     add.w    d0,$12(a6)
  13725.     cmp.w    #$40,$12(a6)
  13726.     bmi.s    mt_vol2
  13727.     move.w    #$40,$12(a6)
  13728. mt_vol2:move.w    $12(a6),d0
  13729.     asr.w #2,d0
  13730.     move.w d0,$8(a5)
  13731.     rts
  13732.  
  13733. mt_voldown:
  13734.     moveq    #0,d0
  13735.     move.b    $3(a6),d0
  13736.     and.b    #$f,d0
  13737.     sub.w    d0,$12(a6)
  13738.     bpl.s    mt_vol3
  13739.     clr.w    $12(a6)
  13740. mt_vol3:move.w    $12(a6),d0
  13741.     asr.w #2,d0
  13742.     move.w d0,$8(a5)
  13743.     rts
  13744.  
  13745. mt_portup:
  13746.     moveq    #0,d0
  13747.     move.b    $3(a6),d0
  13748.     sub.w    d0,$10(a6)
  13749.     move.w    $10(a6),d0
  13750.     and.w    #$fff,d0
  13751.     cmp.w    #$71,d0
  13752.     bpl.s    mt_por2
  13753.     and.w    #$f000,$10(a6)
  13754.     or.w    #$71,$10(a6)
  13755. mt_por2:move.w    $10(a6),d0
  13756.     and.w    #$fff,d0
  13757.     move.w    d0,$6(a5)
  13758.     rts
  13759.  
  13760. mt_portdown:
  13761.     clr.w    d0
  13762.     move.b    $3(a6),d0
  13763.     add.w    d0,$10(a6)
  13764.     move.w    $10(a6),d0
  13765.     and.w    #$fff,d0
  13766.     cmp.w    #$358,d0
  13767.     bmi.s    mt_por3
  13768.     and.w    #$f000,$10(a6)
  13769.     or.w    #$358,$10(a6)
  13770. mt_por3:move.w    $10(a6),d0
  13771.     and.w    #$fff,d0
  13772.     move.w    d0,$6(a5)
  13773.     rts
  13774.  
  13775. mt_checkcom2:
  13776.     move.b    $2(a6),d0
  13777.     and.b    #$f,d0
  13778.     cmp.b    #$e,d0
  13779.     beq.s    mt_setfilt
  13780.     cmp.b    #$d,d0
  13781.     beq.s    mt_pattbreak
  13782.     cmp.b    #$b,d0
  13783.     beq.s    mt_posjmp
  13784.     cmp.b    #$c,d0
  13785.     beq.s    mt_setvol
  13786.     cmp.b    #$f,d0
  13787.     beq.s    mt_setspeed
  13788.     rts
  13789.  
  13790. mt_setfilt:
  13791.     move.b    $3(a6),d0
  13792.     and.b    #$1,d0
  13793.     asl.b    #$1,d0
  13794.     and.b    #$fd,$bfe001
  13795.     or.b    d0,$bfe001
  13796.     rts
  13797. mt_pattbreak:
  13798.     not.b    mt_break
  13799.     rts
  13800. mt_posjmp:
  13801.     st reachedend
  13802.     move.b    $3(a6),d0
  13803.     subq.b    #$1,d0
  13804.     move.b    d0,mt_songpos
  13805.     not.b    mt_break
  13806.     rts
  13807. mt_setvol:
  13808.     cmp.b    #$40,$3(a6)
  13809.     ble.s    mt_vol4
  13810.     move.b    #$40,$3(a6)
  13811. mt_vol4:move.b    $3(a6),d0
  13812.     asr.w #2,d0
  13813.     move.w d0,$8(a5)
  13814.     rts
  13815. mt_setspeed:
  13816.     cmp.b    #$1f,$3(a6)
  13817.     ble.s    mt_sets
  13818.     move.b    #$1f,$3(a6)
  13819. mt_sets:move.b    $3(a6),d0
  13820.     beq.s    mt_rts2
  13821.     move.b    d0,mt_speed
  13822.     clr.b    mt_counter
  13823. mt_rts2:rts
  13824.  
  13825. mt_sin:
  13826.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  13827.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  13828.  
  13829. mt_periods:
  13830.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  13831.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  13832.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  13833.  DC.w $007f,$0078,$0071,$0000,$0000
  13834.  
  13835. reachedend: dc.b 0
  13836. mt_speed:    DC.b    6
  13837. mt_songpos:    DC.b    0
  13838. mt_pattpos:    DC.w    0
  13839. mt_counter:    DC.b    0
  13840.  
  13841. mt_break:    DC.b    0
  13842. mt_dmacon:    DC.w    0
  13843. mt_samplestarts:DS.L    $1f
  13844. mt_voice1:    DS.w    10
  13845.         DC.w    1
  13846.         DS.w    3
  13847. mt_voice2:    DS.w    10
  13848.         DC.w    2
  13849.         DS.w    3
  13850. mt_voice3:    DS.w    10
  13851.         DC.w    4
  13852.         DS.w    3
  13853. mt_voice4:    DS.w    10
  13854.         DC.w    8
  13855.         DS.w    3
  13856.  
  13857. CHEATPTR: dc.l 0
  13858. CHEATNUM: dc.l 0
  13859.  
  13860. testchip: dc.w 0
  13861.  
  13862. ;/* End of File */
  13863. mt_data: dc.l 0
  13864. tstchip: dc.l 0
  13865.  include "SERIAL_NIGHTMARE"
  13866.  
  13867. ingame:
  13868. ; incbin "ab3:includes/ingame"
  13869. gameover: 
  13870. ;incbin "ab3:includes/gameover"
  13871. welldone: incbin "ab3:includes/newwelldone"
  13872.  
  13873.  
  13874.